Zitat von
Gollum:
evtl. hilft dir Application.Terminate weiter.
Das ist die richtige Methode.
Aber die Anwendung läuft trotzdem zunächst mal weiter.
Um nicht unnötig Zeit zu Vertrödeln sollte man in jedes .FormCreate() folgendes einbauen:
Delphi-Quellcode:
procedure TForm5.FormCreate(Sender: TObject);
begin
if Application.Terminated then Exit; // <==
Fxxx := Txxx.Create;
....
end;
Natürlich nur, wenn FormCreate schon vorhanden ist, und dort auch etwas gearbeitet wird.
Man kann auch direkt in der Projektdatei eingreifen:
Delphi-Quellcode:
PasswordForm.ShowModal;
if Application.Terminated then Exit; // <==
Application.CreateForm(TForm42, Form42);
Application.CreateForm(TForm66, Form66);
...
Application.Run;