Applikation mit MDI Fenstern beenden

[samson]

Hallo,

also ich muss ganz ehrlich sagen, das ich das nicht 100% genau weiss. Ich würde in diesem Fall folgendermassen vorgehen.

Die Projektdatei ist ein sehr anfälliges Ding und man sollte vorsichtig sein, da was zu ändern. Nicht destro trotz sind eben, wie son Login-Dialog, ein muss für eine MDI-Anwendung.

Als Tipp kann ich folgendes geben.

Zuerst Kommentierst Du den Splash Dialog aus. Es ist nicht gut vor der Anweisung:

Application.Initialize;

Source Code einzufügen.

Also mach den erstmal weg. Den Login Dialog würde ich im ShowModal-Modus öffnen. Des Weiteren würde ich zwei Buttons einfügen, einen mit dem Rückgabewert: mrOK und einen mit mrCancel. Diese Werte kannst Du dann weiter behandeln.

mrResult :TModalResult;
.
.
.
mrResult := Login.ShowModal;

Dann:

if mrResult <> mrOK then Application.Terminate;

In dem MDI-Hauptform kannst Du dann im FormActivate abfragen ob die Anwendung weiter ausgeführt werden soll.

FormActivate(...)
begin
if not Application.Terminate then
begin
//Anweisungen ausführen, wenn die Application weiter aufgeführt werden soll.
.
.
.
end;
end;

Nochmal zum Login-Formular:

Du brauchst im Close-Ereignis nicht die Anweisung: Action := caFree; diese benötigt man nur bei MDIChilds.

Wenn DU diese Sachen einhälst, sollte Deine Anwendung eigentlich funktionieren.

Gruss


Samson