如何实现到底是点击了DBNavigator的哪个按钮？？？

Question

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
     case button of
     nbFirst:showmessage('first');
     nbPrior:showmessage('prior');
     nbNext:showmessage('next');
     nbLast:showmessage('last');
     nbInsert:showmessage('insert');
     nbDelete:showmessage('delete');
     end;
end;
明白了吧

Answer 1

DBNavigator的OnClick事件已经提供了参数来说明是按下了哪一个按钮，应用方法如下：procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  case Button of
    nbFirst:  ;{do something}
    nbPrior:  ;{do something}
    nbNext:  ;{do something}
    nbLast:  ;{do something}
    nbInsert:  ;{do something}
    nbDelete:  ;{do something}
    nbEdit:  ;{do something}
    nbPost:  ;{do something}
    nbCancel:  ;{do something}
    nbRefresh:  ;{do something}
  end;
end;

Answer 2

DBNavigator如果不跟数据库源相联，能不能作它用？