1.急
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;。
转载请注明出处育才学习网 » 窗体关闭怎么写(急)