Verbindung übergeben

[Bowler]

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.