Всем доброго времени суток. Делаю через таймер чтобы Panel1 выдвигалась вверх до определенного координата но вместо этого на продолжает стремительно лететь в верх без остановки я не знаю что делать. Помогите пожалуйста)
Вот код
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Panel1.Top := Panel1.Top - 5;
if (Panel1.Top = 608) then
Timer1.Enabled := false;
end;
А если использовать в кнопке
Код:
procedure TForm1.Image3Click(Sender: TObject);
begin
Panel1.Top := Panel1.Top - 5;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (Panel1.Top = 608) then
Timer1.Enabled := false;
end;
То нужно жать кнопу каждый раз чтобы изменить кардинаты Panelи и всё ровно она пройдёт мимо нужных мне координат.