易语言窗口停靠伸缩功能
.版本 2.支持库 spec.子程序 窗口停靠伸缩, , 公开.参数 窗口, 窗口.参数 speed, 整数型.局部变量 a, 整数型.局部变量 右边, 整数型右边 = 窗口.左边 + 窗口.宽度' 在窗口里 上.如果 (取鼠标水平位置 () ≥ 窗口.左边 且 取鼠标水平位置 () ≤ 窗口.左边 + 窗口.宽度 且 取鼠标垂直位置 () ≥ 窗口.顶边 且 取鼠标垂直位置 () ≤ 窗口.顶边 + 窗口.高度) .如果真 (窗口.顶边 < -50) ...
原创
2020-11-19 22:11:39 ·
983 阅读 ·
0 评论