[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 спасибо большое помогло , но осталась проблема с кнопкой как сделать чтобы декйствие при нажатии на кнопку повторялось до определённого момента?

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

[Developer]

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

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

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

Код:

Timer1.Enabled := true;

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

[Amilman]

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

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

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

Код:

Panel1.Top := Panel1.Top - 5;

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

Код:

Panel1.Top := Panel1.Top - 5;

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

[angvelem]

Ну так Developer ответил, запускай таймер при нажатии на кнопку.

[Pit-bull85]

Код:

while Panel1.Top >= 608 do
Panel1.Top := Panel1.Top - 5; 

[angvelem]

Сообщение от Pit-bull85

Код:

while Panel1.Top >= 608 do
Panel1.Top := Panel1.Top - 5; 

Скорость выполнения такого кода учёл?

[Pit-bull85]

Можно замёлить слегка

Код:

sleep(1000) 

[Pit-bull85]

Код:

while Panel.Top >= 608 do 
begin
 Panel1.Top := Panel1.Top - 5;
 Sleep(1000);
end;

[angvelem]

Сообщение от Pit-bull85

Код:

while Panel.Top >= 608 do 
begin
 Panel1.Top := Panel1.Top - 5;
 Sleep(1000);
end;

Тоже не фонтан, во время выполнения форма будет недоступна.

[Amilman]

Всем спасибо за помощь буду разбираться дальше)

[Страдалецъ]

Есть еще такая штучка как AnimateWindow которая может помочь в отображении красивом вашей формы