Delphi 登录窗体

procedure TMainForm.FormCreate(Sender: TObject); var LoginForm: TfrmLogin; begin Application.ShowMainForm := False; LoginForm := TfrmLogin.Create(Self); if LoginForm.ShowModal = MrCancel then begin Application.Terminate; //...... end else begin Application.ShowMainForm := True; //...... end; LoginForm.Free; end;