Also, d.h.:
Delphi-Quellcode:
procedure Delay(dwMilliseconds: Longint);
var
iStart, iStop: DWORD;
begin
iStart := GetTickCount;
repeat
iStop := GetTickCount;
Application.ProcessMessages;
until (iStop - iStart) >= dwMilliseconds;
end;
und bei jeder gewünschten Stelle dann: delay(....);
eingeben?
[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]