Delphi DBNavigator1 删除时弹出确认对话框

本文整理自网络，侵删。

 
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbDelete then
  begin
    if MessageDlg('真的确认删除吗?', mtConfirmation, [mbYes,mbNo], 0) = mrNo then
    begin
      Abort;
    end;
  end;
end;
 

相关阅读 >>

Delphi内嵌汇编语言basm精要

Delphi sqlite防止插入重复数据的方法

Delphi fmx调用jar里的java类init方法

Delphi 10 firedac 连接池设置

Delphi app 横屏和竖屏

在Delphi 7中使用加密的sqlite

Delphi2010新功能:tdirectory.getfiles 支持通配符

Delphi中执行javascript代码

Delphi中tlistview控件使用

Delphi 查找字符串并删除该字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi DBNavigator1 删除时弹出确认对话框