*!* 命令组 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编辑过]