Главная страница
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.02 c
14-68541
Халява
2003-08-04 23:41
2003.08.21
WebBrowser


14-68549
VEG
2003-08-04 20:16
2003.08.21
Оффтопик типа


3-68187
Fantasy
2003-07-28 18:25
2003.08.21
ДВА ДЖОЙНА С ОДНОЙ ТАБЛИЦЫ


14-68481
Карелин Артем
2003-08-06 16:15
2003.08.21
Где найти русифицированные модули к дельфи?


14-68516
CD
2003-08-05 15:04
2003.08.21
Компонент