在DBGrid中实现鼠标滚轮的上下滚屏功能

 type  
    TDBGrid=class(DBCGrids.TDBGrid)        
    public  
      function DoMouseWheel(Shift:TShiftState; WheelDelta:Integer; MousePos:TPoint):Boolean;override;  
  end;  
   
  Type  
    .....你原来的程序段

 

  function TDBGrid.DoMouseWheel(Shift:TShiftState; WheelDelta:Integer; MousePos:TPoint):Boolean;  
  begin  
    if WheelDelta<0 then  
       Datasource.DataSet.Next;  
    if wheelDelta>0 then  
       DataSource.DataSet.Prior;  
  end;