怎样对DBNavigator某一按钮事件 做处理？！

Question

怎样对DBNavigator某一按钮事件 做处理？！
如 当点击 插入记录 现出提示等

Answer 1

TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast,
                  nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);
-------------------------------
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
   if   nbInsert=Button then
    showmessage('点了插入');
end;

Answer 2

但是我点了插入(nbinsert),保存时出错了,我想在出错的时候把错误去掉,然后修改完数据后再保存.

Answer 3

TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast,
                  nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);
-------------------------------
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
   if   nbInsert=Button then
    showmessage('点了插入');
end;