Current Location: Delphi tips Garden → → → Delphi programming experience in Delphi delay in delay Date: August 31, 2004 Author: procedure Delay (msecs: integer); varFirstTickCount: longint;
Begin
FirstTICKCOUNT: = GettickCount; REPEATAPPLICATION.ProcessMessages; Until (GettickCount-firstTickcount)> = longint (msecs));
END;
(Source: www.delphibbs.com)
