急|窗體關閉怎麼寫

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;。