Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.21;
Скачать: CL | DM;

Вниз

Функция аналогичная delay в Паскале - забыл   Найти похожие ветки 

 
acsoft ©   (2003-08-07 18:04) [0]

Функция аналогичная delay в Паскале - забыл


 
Skier ©   (2003-08-07 18:06) [1]

Sleep(...)


 
igp ©   (2003-08-07 18:13) [2]

procedure Delay(MSecs: Longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
{ allowing access to other controls, etc. }
( Now - FirstTickCount >= MSecs) 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;



Страницы: 1 вся ветка

Текущий архив: 2003.08.21;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.019 c
14-68513
Yuraz
2003-08-05 16:51
2003.08.21
MicroSoft при установке Win98 и др. считывает с БИОС дату


14-68464
Basja
2003-08-06 13:24
2003.08.21
Старая мессага


6-68437
tytus
2003-06-17 09:48
2003.08.21
Сетевая карта


6-68424
ga3
2003-06-03 17:18
2003.08.21
и снова TWebBrowser:-)


4-68592
dimonf
2003-06-18 10:48
2003.08.21
Как реали-ть drag-grop из моего приложения в win проводик???