Form2 bei Form1 Oncreate aufrufen !

[toms]

Hallo, im Anhang mal eine Möglichkeit, eine Login Form anzuzeigen

Prinzip: Login Form zeigen, falls Login ok Mainform zeigen.
Der Hauptcode ist in der dpr Datei zu finden.

Delphi-Quellcode:

var
  LoginForm: TfrmLogin;

begin
  Application.Initialize;

  // Login Fenster erzeugen
  with TfrmLogin.Create(Application) do
  try
    // Login Fenster anzeigen
    ShowModal;
    // Falls nicht OK Anwendung beenden
    if not (ModalResult = mrOK) then Exit;
  finally
    // Free wird auch ausgeführt bei Abbruch der Anwendung
    Free
  end;

  // Hauptform starten falls Login erfolgreich
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmLogin, frmLogin);
  Application.Run;

end.