鼠标事件类进入/离开/移入/移出源码

如果需要使用该鼠标移动先注册启动窗口鼠标经过触发函数，注册一下窗口。

.子程序 鼠标事件_注册控件, , 公开
.参数 控件句柄, 整数型
.参数 鼠标进入回调函数, 子程序指针, 可空
.参数 鼠标离开回调函数, 子程序指针, 可空
.参数 鼠标进入_参数, 文本型, 可空
.参数 鼠标离开_参数, 文本型, 可空

.如果真 (控件句柄 ≠ 控件句柄参数)
鼠标事件_注册窗口 ()
.如果真结束
.如果真 (鼠标进入状态 ＝ 假)
控件句柄参数 ＝ 控件句柄
鼠标进入状态 ＝ 真
.如果真 (取子程序地址 (鼠标进入回调函数) ≠ 0)
调用子程序 (鼠标进入回调函数, , , 鼠标进入_参数)
.如果真结束
鼠标离开执行 ＝ 鼠标离开回调函数
鼠标离开参数 ＝ 鼠标离开_参数