有条件地阻止“确定”按钮关闭对话框

Question

我有一个对话框，其中包含一些字段。用户应该修复稍后将被解析的表单。当用户按下“确定”时，如果检查成功，数据将进入数据库，如果没有成功，则应显示警告并保留数据对话框。如下所示：

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

我建议您构建自己的对话框。这非常简单，一旦开始，您就可以获得您想要的内容，并在以后需要时轻松添加。