Скачать: CL | DM;

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

← →
Интересующийся   (2006-04-24 18:08) [0]

Уважаемые, подскажите тёмному, как задать временную задержку между двумя событиями. Например нажимаешь кнопку, а эффект наступает с "оттяжкой".

---

← →
Юрий Зотов ©   (2006-04-24 18:15) [1]

GetTickCount в цикле с Application.ProcessMessages.
Sleep
TThread.WaitFor
MsgWaitForMultipleObjects с WAIT_TIMEOUT
и еще куча функций, названия которых начинаются с WaitFor...

Простейший (но не лучший) вариант:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Sleep(3000);
 ShowMessage("Это была задержка на 3 секунды")
end;

---

← →
Мефисто   (2006-04-24 18:15) [2]

Sleep

Или цикл с громадным вычислением (ой, лучше такого не делать :) )

или

TTimer.Enable := True
TTimer.OnTimer
....
TTimer.Enable := False

---

← →
Интересующийся   (2006-04-24 19:24) [3]

>> Мефисто
Задержка по большому циклу на машинах разной вычислительной мощности "задерживается" на разное время! Это не есть хорошо.

---

← →
AlexanderMS ©   (2006-04-24 19:41) [4]

> TTimer.Enable := True
> TTimer.OnTimer
> ....
> TTimer.Enable := False


Конечно же, так:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled := true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Timer1.Enabled := false;
 <действия>
end;

---

← →
Мефисто   (2006-04-24 19:42) [5]

Интересующийся   (24.04.06 19:24) [3]

Знаю, потому и просмайлился

>> (ой, лучше такого не делать :) )

---

← →
Palladin ©   (2006-04-24 23:55) [6]

> Интересующийся

ты раз такой Интересующийся, то может снизойдешь и поинтересуешься постом Юрия Зотова?

---

← →
Германн ©   (2006-04-25 03:09) [7]

2 Интересующийся   (24.04.06 18:08)
Если ты всё ещё интересуешься, то лучше опиши свою задачу. Поскольку "оттяжку" уже предложили. А вот насчёт "эффекта" есть сомнения.

---

← →
Anatoly Podgoretsky ©   (2006-04-25 08:58) [8]

Германн ©   (25.04.06 03:09) [7]
Неправда ваша, предложили как сделать задержку, а как оттянуться еще не предлагали.

---

← →
ssk ©   (2006-04-25 09:11) [9]

>>а как оттянуться еще не предлагали

предлагаю портвейном. белым. крымским.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.041 c