![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Задержка выполнения программного кода (???)
UDS © (2003-02-06 20:43:00)Имеется ли в Дельфи аналог DELAY ?
Как сделать паузу перед выскакиванием модального окна?
Mihey (2003-02-06 22:10:00) [1]Есть:
procedure Delay(ms : longint);
var
TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage("Start Test");
Delay(2000);
ShowMessage("End Test");
end;
Antosya (2003-02-06 21:26:00) [2]Или onTimer событие делать!
Song (2003-02-06 20:51:00) [3]Sleep(1000)
UDS (2003-02-06 20:51:00) [4]OK
UDS (2003-02-06 20:50:00) [5]А конкретней? Если в бейсике например писал DELAY 1000, то как с этими sleep и timer?
MBo (2003-02-06 20:47:00) [6]sleep или таймер