TForm.ModalResult的正确使用

提前条件：

        一个Form中包含两个Button，分别表示“取消”和“确定”。

 

做法：

        分别设置两Button的ModalResult属性为mrCancel和mrOK。两个Button的OnClick响应事件中不要编写“Close;”这句话，因为此时调用Button时已经能自动关闭Form了，否则它会将ModalResult设置为mrCancel。

 

下面代码判断Form的返回值：

AForm := TAForm.Create (Self);

try

  if AForm.ShowModal = mrOK then

  begin

    {这里填写处理代码}

    ........

  end;

finally

  FreeAndNil (AForm);

end;