Здравствуйте. Нужна помощь в освоении 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;