
Indicates that the user scrolled the mouse wheel over the control.
Each control that throws this event has its handler that takes this generic form:
Copy Code |
|---|
(defun c:FormName_ControlName_OnMouseWheel (nFlags [as Integer] nZDelta [as Integer] nX [as Integer] nY [as Integer] /) ) |
Copy Code |
|---|
; React to the mouse wheel
(defun c:MyForm_MyControl_OnMouseWheel (nFlags nZDelta nX nY /)
(princ "OnMouseWheel(")
(princ nFlags)
(princ ", ")
(princ nZDelta)
(princ ", ")
(princ nX)
(princ ", ")
(princ nY)
(princ ")\n")
) |