使用dbnavigator控件时,如何写语句得知被执行的是那个键

解决方案 »

  1.   

    if Button=nbFirst then ...
              nbPrior
              nbNext
              nbLast
              nbInsert
              nbDelete
              nbEdit
              nbPost
              nbCancel
              nbRefresh
      

  2.   

    procedure TForm3.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    var pwdfile:textfile;
        locatesuccess:boolean;
        studno:string;
    begin
    if dbnavigator1.nbdele=ture then
      

  3.   

    li_zhifu(东北人) 老哥讲得很清楚了。仔细看看
      

  4.   

    你应该
    procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    begin
    if button=nbNext then
    showmessage('a');
    end;
    有问题请发信息到我的E-mail:[email protected]
      

  5.   

    对不起,刚开始学,但我在DBNavigator1Click中确实没找到button参数,麻烦写细一点