Einzelnen Beitrag anzeigen

GHorn

Registriert seit: 24. Mär 2009
Ort: NRW
124 Beiträge
 
#5

AW: Timer einmalig sofort auslösen.

  Alt 2. Aug 2012, 10:08
Hallo,

welchen Interval-Wert hast du eingestellt? Wenn der größer als Null ist, tobt der Timer irgendwann von sich aus los.

Ich habe innerhalb des OnTimer-Events immer den Timer zunächst disabled und am Schluß enabled. Dann gibt's keine Überschneidungen.

Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  try
    //
    // Hier die Timer-Aktionen ...
    //
  finally
    Timer1.Enabled := True;
  end;
end;
Edit: Das Ganze noch in den try..finally Block gepackt, damit der
Timer in jedem Falle wieder aktiviert wird.

Geändert von GHorn ( 2. Aug 2012 um 10:17 Uhr)
  Mit Zitat antworten Zitat