Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Anwendung pausieren lassen ohne sie einzufrieren
30. Jan 2003, 23:48
Delphi-Quellcode:
procedure TForm1.Delay(msecs:integer);
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages; {allowing access to other controls, etc.}
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
Michael Ein Teil meines Codes würde euch verunsichern.
|