Delphi 模式窗体返回值ModalResult的使用方法及注意事项

procedure TForm2.btn1Click(Sender: TObject);
begin

      self.ModalResult := mrok;

//注意不要close;
end;

1、包含ModalResult属性的按钮执行完毕之后，该按钮所在的窗体会自动关闭，不用在OnClick事件中添加诸如Close语句。
2、同时将按钮的ModalResult属性值赋值给窗体的ModalResult属性（注意：任何窗体都有这个属性！）
3、还有就是窗体的ModalResult属性又会自动传递给showmodal方法，作为该方法的返回值。

如果设置form2窗体的一个按钮的ModalResult为mrYes的话，点击此按钮关闭此窗体的时候，会返回mrYes，从而显示OK
1>.  在form1中可以调用:
       if Form2.ShowModal = mrok then
               ShowMessage('OK');