拖拽鼠标取窗口句柄工具

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.鼠标指针 ＝ #光标
图片框1.图片 ＝ { }
捕获鼠标 (图片框1.取窗口句柄 ())
时钟1.时钟周期 ＝ 10

.子程序 _时钟1_周期事件

编辑框1.内容 ＝ 到文本 (取鼠标所在窗口句柄 ())
图片框1.鼠标指针 ＝ #光标

.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

释放鼠标 ()
时钟1.时钟周期 ＝ 0
图片框1.图片 ＝ #光标
图片框1.鼠标指针 ＝ #光标