Timer einmalig sofort auslösen.

[GHorn]

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.