主窗体FORM1窗体调用模态显示form2之后,需要根据form2.showmodal返回值判断。
form1窗体的button1click事件中:
procedure TfmMain.mmLogonClick(Sender: TObject);
var
mr:TModalResult;
begin
try
fmLogon := tfmlogon.Create(self);
mr:=fmLogon.ShowModal;
if mr= mrOK then
begin
self.TreeView1.Enabled := true;
self.nowUser := fmLogon.edtUsername.Text;
end;
finally
freeandnil(fmLogon);
end;
end;
在被调用窗体fmUser中有一个button :btnok按钮,按钮的modalresult=mrnone;没有设置为mrOK, 打算自己手动设置fmuser的返回值modalresult:
btnOk的事件代码如下:cdsUser是tclientdataset
procedure TfmLogon.btnOKClick(Sender: TObject);
begin
self.ModalResult := mrOK;
self.cdsUser.Close;
// self.Close;
//不需要此句,设置了modalresult以后,窗体会自动关闭的。
//否则就会又把窗体的返回值改为这个按钮的默认返回值了
end;
结论就是如果手动设置了modalresult,那么就不能写self.close语句,否则会覆盖掉前面设置的值。以此纪念。