| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как заставить программы подождать несколько секунд?
novill © (2005-01-19 13:36:00)Нужна альтернатива функции sleep, так как она не позволяет обрабытывать системные сообщени программе.
novill (2005-01-19 13:52:00) [1]спасибо. попробавал. сработало.
просто я без rxlib работаю.
MetalFan (2005-01-19 13:40:00) [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;
Amoeba (2005-01-19 13:38:00) [3]В RxLib есть такая процедура - Delay
| |
