delphi - 在ADOQuery中更改当前记录之前会触发哪个事件，以及如何不更改当前记录？

Question

在我的应用程序中，有如下链接的这些数据组件：

DBGrid > (DataSource > ADOQuery > ADOConnection)
DBNavigator > (DataSource > ADOQuery > ADOConnection)

每当用户从DBGrid选择另一行或使用DBNavigator时，ADOQuery的当前记录都会更改。很好，但是当用户对当前记录进行一些更改，然后离开该记录时，所做的更改将丢失。

我想显示一个确认对话框，如果发生任何更改，用户需要确认导航离开当前记录。而且，当用户单击“否”时，我希望该应用程序不更改当前记录。

我应该在哪里插入代码？在用户离开当前记录之前触发了哪个事件？如何阻止操作继续？

if anythingChanged then
  if messageDlg(...)=mrNo then
    ADOQuery.dontChangeCurrentRecord;

Answer 1

在“ BeforeScroll”上有条件中止；

procedure TForm1.ADOQuery1BeforeScroll(DataSet: TDataSet);
begin
  if TAdoQuery(DataSet).Modified then  //if anythingChanged then
    Abort;
end;