delphi - 按下 dbnavigator 删除按钮后，如何根据决策中止删除记录？

Question

按下dbnavigator删除按钮后，我可以根据决定中止删除记录吗？我检查了 beforeAction 事件

if Button = nbDelete then  
  //check if not OK then

Button := nbCancel;

但它不起作用。有什么帮助吗？

我正在使用DelPhi XE2、anyDac 组件

Answer 1

使用BeforeAction事件

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbDelete then
  begin
    if MessageDlg('Confirm delete now?', mtConfirmation, [mbYes,mbNo], 0) = mrNo then
    begin
      Abort;
    end;
  end;
end;