回复 11楼 sam_jiang
											这个点子也不错,按这个思路做了测试,好用。
*Thisform.MouseWhell
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
IF nDirection>0
  &&向上滚动
    FOR nCount = 1 TO
  This.ControlCount
        cControlName = This.Controls[nCount].name
        This.&cControlName..top=This.&cControlName..top+10
    ENDFOR 
ELSE
      &&向下滚动
    FOR nCount = 1 TO
  This.ControlCount
        cControlName = This.Controls[nCount].name
        This.&cControlName..top=This.&cControlName..top-10
    ENDFOR 
ENDIF 
[此贴子已经被作者于2023-7-1 15:43编辑过]