请问,如何使得msflexgrid控件实现鼠标滚轮功能
如题,就是说让msflexgrid控件的滚动条可以用鼠标滚轮滑动,就像grid控件的滚动条一样,谢谢!
BindEvent(_Screen, "MouseWheel", ThisForm, "FlxGdMouseWheeel")
ThisForm.FlxGdMouseWheeel:
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
Local loArray[1]
If AMouseObj(m.loArray) > 0 ;
And loArray[1,1] = ThisForm.FlxGd
Do Case
Case m.nDirection = -120
ThisForm.FlxGd.TopRow = ThisForm.FlxGd.TopRow + 1
Case m.nDirection = 120
ThisForm.FlxGd.TopRow = Max(ThisForm.FlxGd.FixedRows, ThisForm.FlxGd.TopRow - 1)
EndCase
EndIf
这是网上的一段解决方法,可是我好像不能实现