Временная задержка между событиями

← →
Интересующийся (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]

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

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

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

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

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

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