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