怎样使点击DBNavigator的Delete按钮时显示中文对话框

最新推荐文章于 2019-07-25 00:36:34 发布

weixin_30912051

最新推荐文章于 2019-07-25 00:36:34 发布

阅读量256

点赞数

原文链接：http://www.cnblogs.com/tecsoon/archive/2009/06/04/1496259.html

版权

在DBNavigator中BeforAction事件中写如下代码

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
if Button=nbDelete then
begin
if MessageBox(Handle,'确实要删除么？','系统提示',MB_YESNO or MB_ICONQUESTION)=ID_NO then
Abort
else begin
Adoquery1.Delete;
Abort;
end;
end;
end;

procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
}
begin
case Button of
nbFirst : do something;
nbPrior : do something;
nbNext : do something;
nbLast : do something;
nbInsert : do something;
nbDelete : do something;
nbEdit : do something;
nbPost : do something;
nbCancel : do something;
nbRefresh: do something;
end;
end;