要求实现，当鼠标放在按钮组，播动鼠标轮了，实现按钮组向上，向下移动

MouseWheel事件

*!* 命令组 MouseWhell
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
DO CASE
   CASE nDirection = 120
        IF this.Top > 0
           this.Top = this.Top - 1 && 移动速度1
        ENDIF
   CASE nDirection = -120
        IF this.Top + this.Height < this.Parent.Height
           this.Top = this.Top + 1 && 移动速度1
        ENDIF
ENDCASE
        

[此贴子已经被作者于2018-5-23 14:18编辑过]

学习啦，谢谢！

学习啦，谢谢！