Ich habe es jetzt so gelöst:
Delphi-Quellcode:
frmLoginView := TfrmLoginView.Create(Application);
frmLoginView.Show;
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmSearchVP, frmSearchVP);
Application.CreateForm(TfrmPrintProvision, frmPrintProvision);
Application.CreateForm(TfrmGutschrift, frmGutschrift);
while frmLoginView <> nil do
Application.ProcessMessages;
if LoginPassed then
Application.Run
else
begin
//frmLoginView.Free;
Application.Terminate;
end;
Somit kann ich vom LoginView auf alle anderen Fenster zugreifen. Im OnClose-Ereignis vom LoginView wird das Fenster auf
nil gesetzt.
Das Anzeigen des Hauptformulars klappt nun wunderbar, aber wenn ich im LoginView auf Cancel klicke und somit
LoginPassed = False ist, sollte er das ganze ja schließen, aber da gibt es eine "
Access Violation" Fehlermeldung. Wie schließe ich die Anwendung nun richtig?
Viele Grüße und danke schonmal!