Einzelnen Beitrag anzeigen

Benutzerbild von samson
samson

Registriert seit: 26. Aug 2003
Ort: Hövelhof Riege
105 Beiträge
 
Delphi 2007 Professional
 
#5

Re: Applikation mit MDI Fenstern beenden

  Alt 8. Dez 2003, 22:12
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
Frank Gellermann
Wer Informationen hat, hat Macht. Wer Macht hat, hat Informationen!!!
  Mit Zitat antworten Zitat