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 字符串中提取字母数字

Delphi 如何编写使stringgrid中的一列具有check功能，和checkbox效果一样

Delphi 字符串连接

Delphi xe2 - 实现主窗口在任务栏上不显示

Delphi tlistview按指定列排序

Delphi10.x dpr文件

Delphi滚动标题栏文字

Delphi android下拉刷新

Delphi win7下超级管理员创建普通权限任务

Delphi getforegroundwindow 与 getactivewindow 的区别

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

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