通过判断条件后怎样中断DBNavigator控件点击所执行的事件(50分)

通过判断条件后怎样中断DBNavigator控件点击所执行的事件

在DBNavigator的BeforeAction事件中做判断，
比如，如果点了删除按钮，而表中又没有数据，要求提示后中断，就可以这样写：
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
if (Button=nbDelete) and (Table1.IsEmpty) then
begin
showmessage('Table中的数据为空,不能删除!');
Abort;
end;
end;

接受答案了.