Problem bei meinem Loginsystem & der Hauptunit

[haentschman]

Hmmm... daß Form3 deine MainUnit sein soll ist eher ungewöhnlich. :roll:

versuche mal folgenden Ablauf:
1. MainUnit ist Form1 (automatisch erzeugt)
2. LoginForm ist Form3 (automatisch erzeugt)
3. Im OnShow der MainUnit (Form1) die Form3 modal anzeigen (ShowModal)
4. im OnShow Rückgabewert auswerten
5. je nach Rückgabe weiter im Programm oder Mainform ggf. schließen.

[Bummi]

Je nach Anforderung vielleicht auch so?

Delphi-Quellcode:

program Project1;

uses
  Forms,Controls,
  Unit2 in 'Unit2.pas' {Mainform},
  Unit3 in 'Unit3.pas' {Loggin};

{$R *.res}

begin
  Application.Initialize;
  With TLoggin.Create(Application) do
    try
      Showmodal;
      if Modalresult = mrOK then
        begin
          Application.MainFormOnTaskbar := True;
          Application.CreateForm(TMainform, Mainform);
          Application.Run;
        end;
    finally
      Free;
    end;
end.