Delphi-Quellcode:
Application.Initialize;
FormLogin := Application.Initialize;
FormLogin := FormLogin.Create(nil);
try
if Login_exist then
Exit;
finally
FormLogin.Free;
end;
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(TFormKunden, FormKunden);
Application.CreateForm(TFormPosition, FormPosition);
Application.Run;
Edit ok hab
FormLogin.Create(nil);
in
TFormLogin.Create(nil);
geändert dummer Fehler meinerseits, allerdings wenn ich nun starte, wird trotzdem wieder FormMain.Show gestartet und ich krieg logischerweise eine Fehlermeldung, da meine Objekte alle noch af nil stehen.
Jedoch sollte das Ereignis FormShow des Hauptformulars noch warten bis der Login erfolgreich war.