delphi的form 窗体返回值modalResult值问题

主窗体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语句，否则会覆盖掉前面设置的值。以此纪念。