Showmodal - modalresult

[jaenicke]

Naja, wie ich geschrieben habe...

Delphi-Quellcode:

  Application.Initialize;
  frmLogin := TfrmLogin.Create(nil);
  try
    if (frmLogin.ShowModal <> mrOk) or (frmLogin.UserName <> 'Test') then
      Exit;
  finally
    frmLogin.Free;
  end;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;