anderen Delay als sleep

[MrKnogge]

Moin,

probier mal folgendes:

Delphi-Quellcode:

procedure Delay(const Milliseconds: DWord);
var
  FirstTickCount: DWord;
begin
  FirstTickCount := GetTickCount;
  while ((GetTickCount - FirstTickCount) > Milliseconds) do
  begin
    Application.ProcessMessages;
    Sleep(0);
  end;
end;

gruss

[edit=alcaeus]HTML-Entitaet durch korrektes Zeichen ersetzt. Mfg, alcaeus[/edit]