学步园

在DBNavigator中BeforAction事件中写如下代码  
   
  procedure   TForm1.DBNavigator1BeforeAction(Sender:   TObject;  
      Button:   TNavigateBtn);  
  begin  
      if   Button=nbDelete   then  
      begin  
          if   MessageBox(Handle,'确实要删除么？','系统提示',MB_YESNO   or   MB_ICONQUESTION)=ID_NO   then  
              Abort  
          else   begin  
              Adoquery1.Delete;  
              Abort;  
          end;  
      end;  
  end;  

 

procedure   TForm1.DBNavigator1BeforeAction(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;