主窗口及登录窗口的生成顺序

自动生成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.