易语言移入移除事件(最终解)
<p><strong>精易模块命令 </strong><strong>鼠标移入移出事件()</strong></p><p> </p>
<p>.版本 2</p>
<p><br>.子程序 鼠标移入移出事件, 整数型, , 移入返回1,移出返回2,移动中返回3<br>.参数 控件句柄, 整数型<br>.参数 移入事件, 子程序指针<br>.参数 移出事件, 子程序指针<br><br>处理事件 ()<br>.如果 (窗口_取鼠标处窗口句柄 () = 控件句柄)<br> .如果真 (是否移入 = 假)<br> SetCapture (控件句柄)<br> 执行子程序_ (移入事件)<br> 是否移入 = 真<br> 返回 (1)<br> .如果真结束<br><br>.否则<br> 执行子程序_ (移出事件)<br> ReleaseCapture ()<br> 是否移入 = 假<br> 返回 (2)<br><br>.如果结束<br>SetCapture (控件句柄)<br>返回 (3)</p><br><br>
来源:https://www.cnblogs.com/hongyuyingxiao/p/15641372.html
頁:
[1]