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

Question

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

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

Answer 1

Use OKBtn.ModalResult := mrNone as default value and

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