Timer in einer Schleife!!

[Jens Hartmann]

Wenn ich es richtig verstanden habe, willst du deine Procedure anhalten, der Benutzer soll die Zeit haben, was Einzugeben und das Programm soll weiterlaufen, dann müsste es so funktionieren. :gruebel:

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;

und in Deine Procedure die du stoppen willst muss nur an die passende Position...

Delphi-Quellcode:

   Delay(10000); //10000 gibt die Zeit in ms an.

[daNiii]

DAnke für die Antwort auf meine Frage zu
Timer.enabled:= true;
aber noch eine Frage hierbezüglich.
Beginnt der Timer also mit dieser Funktion zu zählen?

[Jens Hartmann]

Mal angenommen du würdest dem Timer eine Zeit von 1000 ms einstellen, dann würde er nach dem aufruf 1000ms später die im zugewiesenen Funktionen durchführen und nach weiteren 1000 ms erneut.
Solang bis

Delphi-Quellcode:

Timer.Enabled := false;

[Hybrid666]

ganz trivial gesagt: alle timer1.interval millesekunden wird der code ausgeführt, den du im timer schreibst ;)