Hi,
ich möchte mein MainForm nur anzeigen, wenn die Anmeldung an der Datenbank erfolgte.
Bei fehlerhafter Anmeldung soll die Anwendung beendet werden.
Jetzt bin ich auf der Suche nach der optimalen Stelle für das Login.
Ich habe es erst mal in die Projektdatei wie folgt geschrieben:
Delphi-Quellcode:
begin
Application.Initialize;
if Login then
begin
Application.CreateForm(TMainForm, MainForm);
end;
Application.Run;
end.
Login sieht dann etwa so aus:
Delphi-Quellcode:
function Login: Boolean;
Var
f: TLoginForm;
begin
f := TLoginForm.Create(Application);
Result := (f.ShowModal = mrOK);
if not Result then
Application.Terminate;
end;
Ist die Lösung sauber? Ich bin mir nicht ganz sicher...
Gruß, Frank