Hi Frank,
probiere doch mal so:
Delphi-Quellcode:
begin
if not Login then Exit; // Halt;
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
// ...
function Login: Boolean;
var
f: TLoginForm;
begin
Result := true;
with TLoginForm.Create(nil) do
if ShowModal = mrOK
then Free
else Result := false;
end;
Hat zumindest den Vorteil, dass du der
IDE beim modifizieren des Projekt-Quelltextes nicht dazwischen funkst.
Grüße vom marabu