delphi – 如何在按下dbnavigator删除按钮后根据决定中止删除记

发布时间：2020-12-15 09:51:53 所属栏目：大数据来源：网络整理

导读：按下dbnavigator删除按钮后,我可以根据决定中止删除记录吗？我检查过动作事件 if Button = nbDelete then //check if not OK thenButton := nbCancel; 但它不起作用.任何帮助？我正在使用DelPhi XE2,anyDac组件解决方法使用BeforeAction事件 procedure T

按下dbnavigator删除按钮后,我可以根据决定中止删除记录吗？
我检查过动作事件

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

Button := nbCancel;

但它不起作用.任何帮助？

我正在使用DelPhi XE2,anyDac组件

解决方法

使用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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!