如题，就是说让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
这是网上的一段解决方法，可是我好像不能实现

这个方法应该有效。
也可以在表单的WM_MOUSEWHEEL消息中处理
** form.Init
#DEFINE WM_MOUSEWHEEL 0x020A
BINDEVENT(this.hWnd, WM_MOUSEWHEEL, this, "MyMouseWheel")

**form.MyMouseWheel
LPARAMETERS hWnd, nMsg, wParam, lParam
LOCAL aMouseInfo[1]
IF (AMOUSEOBJ(aMouseInfo, 1) > 0) AND (aMouseInfo[1] == this.Olecontrol1)
    IF wParam > 0
        IF this.Olecontrol1.TopRow > this.Olecontrol1.FixedRows
            this.Olecontrol1.TopRow = this.Olecontrol1.TopRow - 1
        ENDIF
    ELSE
        this.Olecontrol1.TopRow = this.Olecontrol1.TopRow + 1
    ENDIF
ENDIF

为什么还是没有反应？

有反应了，谢谢！

我也遇到同样的问题。感谢老吹，困扰我多年的问题终于轻松搞定！

这个方法实际是对表单的鼠标滚轮消息的一个重定向（我的理解，不一定恰当），即：只要是发生在表单上的鼠标滚轮搓动，就会有效。但是，当我有若干条记录已经显示在FlexGrid中，并且FlexGrid已经获得了焦点，就不会再发表单的鼠标滚轮事件，换句话说，当我在FlexGrid中单击一下，表单的鼠标滚轮事件就无法触发，只有把焦点从FlexGrid中移出，才可以再次看到FlexGrid的滚动效果。如何解决呢？