Delphi Form Showing Problem

[Progman]

Hier ein Vorschlag:

Delphi-Quellcode:

//Original-dpr:
program testProject5;

uses
  Forms,
  testUnit5a in 'testUnit5a.pas' {frmMain},
  testUnit5b in 'testUnit5b.pas' {LoginForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TLoginForm, LoginForm);
  Application.Run;
end.

//Geändert:
program testProject5;

uses
  Forms,
  testUnit5a in 'testUnit5a.pas' {frmMain},
  testUnit5b in 'testUnit5b.pas' {LoginForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TLoginForm, LoginForm);
  LoginForm.ShowModal; 
  if not frmMain.LoginOK then Application.Terminate;
  Application.Run;
end.

Im Anhang das ganze als Project mit zwei Forms.

Gruß ;)