Wohin mit "Timer1.Enabled := false"?

[mbamler]

Zitat von gfjs:

Guten Morgen, Allerseits.

Delphi-Quellcode:

procedure TWinForm.Timer1_Tick(sender: System.Object; e: System.EventArgs);
begin
  MyForm := TwinForm1.Create;
  MyForm.ShowDialog;
  MyForm.BringToFront;
  Timer1.Enabled := false;
end;

führt dazu, dass alle 5 Sekunden ein neues Formular erzeugt wird. Die einzige Erklärung, die mir einfällt: "Timer1.Enabled := false" muss woanders hin. - Nur wo?

Ich wünsche Euch allen noch einen schönen Tag.

mfg gfjs

PS. "Timer1.Enabled := true" steht in TWinForm.Create.

...Ohne das jetzt im Detail geprüft zu haben, fällt mir auf die Schnelle ein:

Delphi-Quellcode:

procedure TWinForm.Timer1_Tick(sender: System.Object; e: System.EventArgs);
begin
  MyForm := TwinForm1.Create;
  MyForm.ShowDialog;
  MyForm.BringToFront;
  MyForm.Enabled := false; //auch den Timer der neu erzeugten Form deaktivieren ...
  Timer1.Enabled := false;
end;

Gruß
Matthias