我想在DBNavigator1的某些按钮加一点事件,怎么写代码?

Question

比如:按下"√"出现一个提示框等

Answer 1

Case Button of
      nbPost :showmessage('.........')
     end;

Answer 2

//在DBNavigator1的click事件里
case button of 
nbFirst:
nbPrior:
nbNext:
nbLast:
nbInsert:
nbDelete:
nbPost:
nbCancel:
end;
{选吧 ^_^}

Answer 3

看DBNavigator的源代码，分析他的onclick事件

Answer 4

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if button in [nbFirst, nbPrior, nbNext, nbLast] then 
   begin
   {do sth}
   end;
end;或者你用别一种方法，控制数据源
query.beforepost;
query.beforeinster;
query.beforedeledt;
____OK?