易语言移入移除事件（最终解）

精易模块命令  鼠标移入移出事件（）

 

.版本 2

.子程序 鼠标移入移出事件, 整数型, , 移入返回1,移出返回2,移动中返回3
.参数 控件句柄, 整数型
.参数 移入事件, 子程序指针
.参数 移出事件, 子程序指针

处理事件 ()
.如果 (窗口_取鼠标处窗口句柄 () ＝ 控件句柄)
    .如果真 (是否移入 ＝ 假)
        SetCapture (控件句柄)
        执行子程序_ (移入事件)
        是否移入 ＝ 真
        返回 (1)
    .如果真结束

.否则
    执行子程序_ (移出事件)
    ReleaseCapture ()
    是否移入 ＝ 假
    返回 (2)

.如果结束
SetCapture (控件句柄)
返回 (3)