Timing problem

[Namenloser]

Der (wichtige) Unterschied ist: Hagens Procedure nutzt MsgWaitForMultipleObjects , sodass die Anwendung schläft, solange nicht eine Input-Message hereinkommt oder die Wartezeit überschritten wird. Deshalb verbraucht sie deutlich weniger Ressourcen:

Delphi-Quellcode:

procedure Delay(Milliseconds: Integer);
var
  Tick: DWord;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWord(Milliseconds);
    while (Milliseconds > 0) and
          (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Exit;
      Milliseconds := Tick - GetTickcount;
    end;
  finally
    CloseHandle(Event);
  end;
end;

Eigentlich musst du nur Application.ProcessMessages; durch deine eigene Message-Abarbeitungsroutine ersetzen...