Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Scorpion**

Hi,

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;

Gruss
Scorpion

Scorpion Registriert seit: 3. Nov 2002 Ort: Flörsheim 154 Beiträge Delphi 5 Professional	#3 29. Dez 2002, 22:27 Hi, 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; Gruss Scorpion
	Zitat