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.