窗体关闭怎么写 急

procedure TMainForm.N5Click(Sender: TObject);beginLogin:=TLoginForm.Create(Application);if Login.ShowModal = mrOk then 。

你应当习惯如许的写法：else 。end；至于过程 TLoginForm.CancelBitBtnClick 根本不消写什么器械，只要将CancelBitBtn的ModelResult属性改为mrCancel，而将OkBitBtn的ModelResult属性改为mrOk.Login.Free;。