易语言超级列表框往外拖放模块源码

.子程序 NewProc, 整数型
.参数 hWnd, 整数型
.参数 Msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.局部变量 鼠标在窗口外, 逻辑型
.局部变量 x, 整数型
.局部变量 y, 整数型

y ＝ 右移 (lParam, 16)
x ＝ 位与 (lParam, 65535) ' x<0时实际是65535-x
.如果真 (x ＞ 30000)
x ＝ x － 65535
.如果真结束
.如果 (x ＜ 0 或 x ＞ 超级列表框1.宽度 或 y ＜ 0 或 y ＞ 超级列表框1.高度)
鼠标在窗口外 ＝ 真
.否则
鼠标在窗口外 ＝ 假
.如果结束
.如果真 (Msg ＝ 513) ' 鼠标左键按下513
鼠标按下 ＝ 1
.如果真结束
.如果真 (Msg ＝ 4114) ' WM_HITTEST 4114,补充lbuttonup不好用
超级列表框1.鼠标指针 ＝ { 0 }
鼠标按下 ＝ 0
释放鼠标_ ()
.如果真结束
.如果真 (Msg ＝ 514) ' 鼠标左键放开514
超级列表框1.鼠标指针 ＝ { 0 }
鼠标按下 ＝ 0
释放鼠标_ ()
.如果真 (到整数 (子程序指针1) ≠ 0 且 鼠标在窗口外 ＝ 真)
启动线程 (子程序指针1, , )
.如果真结束

.如果真结束
.如果真 (Msg ＝ 512 且 鼠标按下 ＝ 1) ' 鼠标移动512
鼠标按下 ＝ 0
超级列表框1.鼠标指针 ＝ #图片1
.判断循环首 (检查消息队列_ (msg_check, 0, 0, 0, 1) ≠ 0)
解释消息_ (msg_check)
分派消息_ (msg_check)
.判断循环尾 ()
俘获鼠标_ (hWnd) ' 必须在设置鼠标指针后面用，否则鼠标指针设置无效
.如果真结束
返回 (CallWindowProcA (Oldproc, hWnd, Msg, wParam, lParam))