Pause in procedure einbauen...?

[Balu der Bär]

Moin Mucki,

um deine Frage aus der PN mal hier zu beantworten, damit alle etwas davon haben:

Zitat:

In der OH findet man nichts über delay.... Warum?

Weil Delay keine Standard-Delphi-Funktion ist sondern irgendwann einmal von irgendwem geschrieben wurde. Hättest du die DP-Forensuche bemüht, hättest du folgendes gefunden (einfach in den Quelltext kopieren und von deiner Prozedur aus aufrufen):

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;