Sleep Delay Wait Pause
[code lang=”delphi”]procedure TForm1.msSleep(ms : Integer);
Var
tmpTime : Integer;
tmpMs : Integer;
Begin
tmpMs := ms;
tmpTime := GetTickCount + tmpMs;
While tmpTime > GetTickCount Do
Application.ProcessMessages;
End;
[/code]
[tags]Delphi, Misc[/tags]
0 Kommentare zu “Sleep”