das ganze sieht im Hauptprogramm etwa so aus (habe gerade kein Delphi da, deswegen nur aus dem Gedächtnis):
Delphi-Quellcode:
program MeineAnwendung;
uses ....
begin
Application.Initialize;
with Tfrm_login.create(nil) do
begin
if showModal=mrOK then
begin
Free;
Application.CreateForm(tfrm_main...);
Application.Run;
end else
begin
Free;
Application.Terminate;
end;
end;
end.
Es wird also die Anwendung initialisiert. Dann wird das frm_login erstellt, und mit ShowModal angezeigt. Wenn das Result mrOK ist, dann wird das Formular wieder freigegeben, die anderen Forms werden erstellt und die App wird gestartet. Ansonsten wird die App beendet. Das funktioniert soweit.