便捷的鼠标进入离开事件

.子程序 添加组件, 逻辑型, 公开
.参数 组件句柄, 整数型
.参数 回调事件, 整数型, 可空, 参数一为句柄,参数二为类型:0进入,1离开
.局部变量 局_原过程, 整数型

.如果真 (New_Call ＝ 0)
New_Call ＝ 类_取内部方法地址 (4)
.如果真结束
局_原过程 ＝ SetWindowLongA (组件句柄, -4, New_Call)
.如果真 (局_原过程 ＝ 0)
输出调试文本 (“窗口过程获取失败”)
返回 (假)
.如果真结束
哈希表.添加 (到文本 (组件句柄) ＋ “回调”, 回调事件)
哈希表.添加 (到文本 (组件句柄) ＋ “过程”, 局_原过程)