怎样在DBNavigator的BeforeAction事件中进行条件判断后取消DBNavigator按钮的操作啊？

Question

用cancel()吗？
可是我没找到它
procedure Tkc.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  adotable1.Open;
  if adotable1['state']='n' then
     begin
     showmessage('你无权对该课程进行操作,此为教务处权限!');       
      ？？？这里怎么写啊！
end
还请高手指教！！

Answer 1

begin
     showmessage('你无权对该课程进行操作,此为教务处权限!');       
      ？？？这里怎么写啊！
     Abort;end应该可以了吧。

Answer 2

procedure Tkc.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  adotable1.Open;
  if adotable1['state']='n' then
     begin
     Raise Exception.Create('你无权对该课程进行操作,此为教务处权限!');       
      ？？？这里怎么写啊！
end

Answer 3

用SHOWMESSAGE('你无权对该课程进行操作,此为教务处权限!');
Abort;