Zitat von
RedDust:
Hier hast du den Quelltext für das oben beschriebene Delay:
Delphi-Quellcode:
procedure Delay(time:word);
var Start: Integer;
begin
Start:=GetTickCount;
while (GetTickCount)-(Start) <= time do Application.ProcessMessages;
end;
Hi,
ich verwaise an dieser Stelle mal auf Hagens
Delay.