如何避免对话框关闭？

[smile_yuzhe]

我在程序中使用了一个标准对话框，在上面加了一些控件，我想在点击ok的时候检查一下对话框里的控件是否正确选择了，如果选择正确对话框消失，如果错误就不消失，让接着继续选择，是不是在ok对应的函数里面加一些代码？

[zsr]

不要指定该按钮的默认ModalResult属性，然后在onClick中：

if (CheckCondition())
ModalResult = mrOk;

[naughtyboy]

同意楼上的
if(检查一下对话框里的控件是否正确选择了)
modalresult=mrOk;

[wxcwuxuchun]

在Form,OnCloseQuery事件检查，正确，CanClose = true;错误，CanClose = false;

[KingOf007]

在ShowModal()中，ModalResult=mrNone时，不关闭对话框，设为其他值则关闭对话框返回