提前条件:
一个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;