[Amilman]

Всем доброго времени суток. Делаю через таймер чтобы 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и и всё ровно она пройдёт мимо нужных мне координат.

[Aristarh Dark]

Ну у тебя 608 не получается и все...
Сделай больше 608...

Код:

Panel1.Top > 608

[angvelem]

Сообщение от Aristarh Dark

Ну у тебя 608 не получается и все...
Сделай больше 608...

Код:

Panel1.Top > 608

Тогда уж:

Код:

Panel1.Top <= 608

[Amilman]

Aristarh Dark,angvelem спасибо большое помогло , но осталась проблема с кнопкой как сделать чтобы декйствие при нажатии на кнопку повторялось до определённого момента?

[angvelem]

Сообщение от Amilman

Aristarh Dark,angvelem спасибо большое помогло , но осталась проблема с кнопкой как сделать чтобы декйствие при нажатии на кнопку повторялось до определённого момента?

Сформулируй мысль яснее.

[Amilman]

Сообщение от angvelem

Сформулируй мысль яснее.

В общем при нажатии на кнопку происходит это действие

Код:

Panel1.Top := Panel1.Top - 5;

но действие происходит только один раз при каждом нажатии на кнопку. Нужно чтобы я один раз нажал на кнопку а

Код:

Panel1.Top := Panel1.Top - 5;

будит повторятся до тех пор пока не достигнит Panel1.Top= 608

[Developer]

Сообщение от Amilman

Aristarh Dark,angvelem спасибо большое помогло , но осталась проблема с кнопкой как сделать чтобы декйствие при нажатии на кнопку повторялось до определённого момента?

Так же само с использованием таймера.

Код:

Timer1.Enabled := true;

Или я вас не правильно понял?