Wenn man ein eigenes Delay realisieren möchte geht das zum Beispiel so...
Delphi-Quellcode:
procedure Delay(ATime:Integer);
var Start : integer;
begin
Start := GetTickCount;
repeat
Application.ProcessMessages;
until abs(GetTickCount) - Start > ATime;
end;
Aber warum eine negative Pause zulassen?
Also besser...
Delphi-Quellcode:
procedure Delay(ATime:Cardinal);
var Start : Cardinal;
begin
Start := GetTickCount;
repeat
Application.ProcessMessages;
until GetTickCount - Start > ATime;
end;
Gruss
Thorsten