Показать сообщение отдельно
Старый 12.09.2017, 20:03   #1 (permalink)
Mirenetto
Member
 
Регистрация: 07.11.2016
Сообщений: 23
Сказал(а) спасибо: 0
Поблагодарили 6 раз(а) в 1 сообщении
Репутация: 585
Post Двигающиеся кнопочки в Lazarus

Здравствуйте. Нужна помощь в освоении Lazarus. Не могу заставить кнопку двигаться по экрану, когда нажимаю на ту, которая должна ее запускать
Вот такой вот у меня код получился... В Enabled y Timer стоит False
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Left:=Button1.Left + 10;
  Timer1.Enabled:=true;
  Timer1.Enabled:=not Timer1.Enabled
  if Timer1.Enabled then Button2.Caption:='Стоп'
                      else Button2.Caption:='Пуск';
end;
__________________
Хакер - это тот, кто даже в закрытом сарае может наступить на грабли
Mirenetto вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070