Как заставить программы подождать несколько секунд?

← →
novill (2005-01-19 13:36) [0]

Нужна альтернатива функции sleep, так как она не позволяет обрабытывать системные сообщени программе.

← →
Amoeba © (2005-01-19 13:38) [1]

В RxLib есть такая процедура - Delay

← →
MetalFan © (2005-01-19 13:40) [2]

а вот как она выглядит:
procedure Delay(MSecs: Longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
{ allowing access to other controls, etc. }
Now := GetTickCount;
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

← →
novill (2005-01-19 13:52) [3]

спасибо. попробавал. сработало.
просто я без rxlib работаю.

Как заставить программы подождать несколько секунд? Найти похожие ветки