复制组件和拖动组件

复制组件和拖动组件例子。
.如果真 (获取当前鼠标位置 (鼠标坐标) ≠ 0)
控件句柄 ＝ 获取当前句柄 (鼠标坐标.x, 鼠标坐标.y)
.如果真 (控件句柄 ≠ 0)
释放鼠标捕获 ()
发送控件消息 (控件句柄, 161, 2, 0)