有条件地阻止关闭对话框的OK按钮

Question

我有一个对话框，里面有一些字段。用户想要修复稍后将被解析的表单。当用户按下ok时，如果检查成功，数据将进入数据库，如果不是，则应显示警告并且数据对话框应保留。如下所示：

procedure TDataSaver.OKBtnClick(Sender: TObject);
begin
    if checkData then
        saveDataInDatabase
    else
        …prevent from closing code…
end;

Answer 1

使用OKBtn.ModalResult := mrNone作为默认值和

procedure TDataSaver.OKBtnClick(Sender: TObject);
begin
  if checkData then
    ModalResult := mrOK;
end;

Answer 2

我建议您建立自己的对话框。这很简单，一旦你开始，你可以得到你想要的，并在以后容易添加到它。