关于DBGrid,请进!

大家好,能不能提供 DBGrid 支持鼠标滚轮通用的的过程啊!
谢谢!

解决方案 »

  1.   

    如果可以的话，用dxDBGrid这个组件吧；它不用设置什么属性，也不用添加代码的！如果没有这个组件，到网上找找
    http://www.ocloud.com/download/dlview.php?kind=compset
    http://www.inprises.com/tech/index.htm
    http://delphibig.home.sohu.com/
      

  2.   

    当鼠标指针指向窗体中时，Delphi为滚轮滚动提供OnMouseWheel事件，我们可以对它进行相应的处理。本例中，在窗体内放置一标签Label1，用于显示滚轮滚动的效果。　　implementation　　var i:integer;　　procedure TForm1.FormCreate(Sender: TObject);　　begin　　 i:=0;　　 Label1.Caption:=inttostr(i);　　end;　　procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;　　 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);　　begin　　 if WheelDelta>0 then i:=i+1 else i:=i-1;　　 //wheelDelta参数表示滚动一格的值，向上滚动为正数，向下滚动则为负数　　 Label1.Caption:=inttostr(i);　　end;