Delphi:在 OnBeforePost 事件中取消 TDataSet.Post

Question

在我们的主数据输入屏幕上，我们在 OnBeforePost 事件中有一个“确定/取消”对话框。

• 好吧一切顺其自然
• 取消现在执行Dataset.Cancel;

它的作用是回滚所有更改并将数据集置于浏览模式。

这对于大多数客户来说都很好，但我们被问到是否可以更改为

• 取消，中止帖子并保持编辑模式并保留当前更改。

如果他们想取消，可以使用取消按钮。

查看procedure TDataSet.Post;的源代码，看起来不可能以这种方式使用事件。

有人对如何做到这一点有任何想法吗？

跟进:这就是我现在选择的处理方式

case MessageDlg('Save Changes?', mtWarning, [mbYes, mbNo, mbAbort], 0) of
  mrYes: ;
  mrNo: Dataset.Cancel;
  mrAbort: Abort;
  mrNone: Abort;
end;

Answer 1

调用方法Abort(如果我没记错的话，来自System单元)会引发一个静默的EAbort异常，该异常仅取消当前的手术。这应该可行。

(顺便说一句:这种取消数据库操作的方法也在帮助系统深处的某个地方被描述为实现此目的的“正常”方法——这就是我最初获得此技术的地方)。