如何获取dbnavigator上的单个按扭的单击事件？等

Question

如何获取dbnavigator上的单个按扭的单击事件？等我想在单击后出一个提示框，谢谢。我等

Answer 1

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  case Button of
    nbFirst: ShowMessage('第一条');
    nbPrior: ShowMessage('前一条');
    nbNext: ShowMessage('后一条');
    nbLast: ShowMessage('最后一条');
    nbInsert: ShowMessage('插入');
    nbDelete: ShowMessage('删除');
    nbEdit: ShowMessage('编辑');
    nbPost: ShowMessage('提交');
    nbCancel: ShowMessage('取消');
    nbRefresh: ShowMessage('刷新');
  end;end;