鼠标滑轮操作编辑框数值

编辑框滚动鼠标轮子能增加或减小编辑框数值，代码演示了6个编辑框共用一个窗口处理函数来处理6个不同编辑框的消息，理论上共用编辑框数量限制在长整数范围以内。

.子程序 取消共用函数, , 公开, 取消共用函数，恢复原函数
.局部变量 i, 整数型

.计次循环首 (取数组成员数 (信息), i)
SetWindowLong (信息 [i].编辑框.取窗口句柄 (), -4, 信息 [i].函数)
.计次循环尾 ()

.判断开始 (wp ＝ 7864320)
子程序1 (hwnd, 1)
.判断 (wp ＝ -7864320)
子程序1 (hwnd, -1)
.默认

.判断结束
.计次循环首 (取数组成员数 (信息), i)
.如果真 (信息 [i].编辑框.取窗口句柄 () ＝ hwnd)
返回 (CallWindowProc (信息 [i].函数, hwnd, msg, wp, lp))
跳出循环 ()
.如果真结束

.计次循环尾 ()