Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
ВнизИспользование задержки в DELPHI....... Найти похожие ветки
← →
Evgen.RU (2002-09-10 11:34) [0]Hi Мастера DELPHI!Помогите пожалуйста.
В Турбо Паскале можно мыло включить Uses CRT и тогда
использовать очень удобную команду Delay.Можно ли, а
главное как использовать Delay в DELPHI.Если нельзя, то какие есть альтернативы?
Зарание всем благодарен, надеюсь на вашу помощь :).
← →
RV (2002-09-10 11:39) [1]timer
sleep
← →
Ученик (2002-09-10 11:41) [2]RX
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;
← →
dihlos (2002-09-10 11:42) [3]Из FAQ:
procedure TForm1.Delay(msecs : Longint);
var
FirstTick : longint;
begin
FirstTick:=GetTickCount;
repeat
Application.ProcessMessages; {для того чтобы не "завесить" Windows}
until GetTickCount-FirstTick >= msecs;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c