我有一个对话框,里面有一些字段。用户想要修复稍后将被解析的表单。当用户按下ok时,如果检查成功,数据将进入数据库,如果不是,则应显示警告并且数据对话框应保留。如下所示:
procedure TDataSaver.OKBtnClick(Sender: TObject);
begin
if checkData then
saveDataInDatabase
else
…prevent from closing code…
end;
答案 0 :(得分:11)
使用OKBtn.ModalResult := mrNone
作为默认值和
procedure TDataSaver.OKBtnClick(Sender: TObject);
begin
if checkData then
ModalResult := mrOK;
end;
答案 1 :(得分:1)
我建议您建立自己的对话框。这很简单,一旦你开始,你可以得到你想要的,并在以后容易添加到它。