Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Задержка выполнения программного кода (???)


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 или таймер


Наверх

Титульная страница Поиск, карта сайта Написать письмо