Timerereignis

[Pilrich]

Hi!
Kann mir vielleicht jemand bei folgendem Problem weiterhelfen?
Ich möchte einfach in einer Prozedur warten bis eine gewisse Zeit vergangen ist mit Hilfe eines Timers, aber dabei soll diese Prozedur nicht verlassen werden.
Also ich starte den Timer und wenn das OnTimer Event auftritt will an die gleiche Stelle in der Prozedur in der der Timer aktiviert wurde zurückkehren...

Danke im Voraus
Pilrich

[jbg]

Das ganze kann man auch ohne Timer erledigen (API GetTickCount() ).
Mit einem Timer könnte das ganze so aussehen:

Code:

procedure abc;
begin
 // ...
  Timer1.Enabled := True;
  while Timer1.Enabled do Application.ProcessMessages;
 // ...
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

[Daniel B]

Hallo Pilrich,

möchtest Du in der zwischenzeit was anderes machen, oder einfach nur Pausieren.
Einfache Pause erreichst Du mit "Sleep(1000);" //Zeit in ms; also 1 Sekunde
Sonst hilft Dir noch GetTickCount weiter. //Siehe OH

Grüsse, Daniel

[Pilrich]

a doch so einfach )

Dankeschön!