自动生成FrmMain窗体 Application.CreateForm(TFrmMain, FrmMain); 并在其Create事件中创建FrmLogin procedure TFrmMain.FormCreate(Sender: TObject); begin Application.ShowMainForm := False; FrmLogin := TFrmLogin.Create(Self); if FrmLogin.ShowModal = MrCancel then begin FrmLogin.Free; Application.Terminate; exit; end else begin Application.ShowMainForm := True; end; end; 在登录窗体成功登陆后 将其ModalResult := MrOK.