拖动鼠标取指定程序窗口句柄

GetCursorPos (Point)
WindowHandle ＝ WindowFromPoint (Point.x, Point.y)
PatWindowRim (WindowHandle)
编辑框1.内容 ＝ 到文本 (WindowHandle)
但是我们还是想让他有一个拖拽的效果.于是就整理了下面这个小小教程.

第一步,把我们需要设置的鼠标状态文件上传到资源包里面去.

第二步,在软件指定的界面上画个小小的图片框.

第三步,在图片框的鼠标左键被按下和被放开的事件里面,写上下面的代码.即可.
DCA ＝ CreateDCA (“DISPLAY”, “”, “”, 0)
.判断开始 (Oldhandle ≠ Handle)
.如果 (PatBool ＝ 真)
GetWindowRect (Oldhandle, Rect)
PatBool ＝ 假
.否则
GetWindowRect (Handle, Rect)
PatBool ＝ 真
Oldhandle ＝ Handle
.如果结束
PatRim (DCA, Rect)
DeleteDC (DCA)

.默认
GetWindowRect (Handle, Rect)
PatRim (DCA, Rect)
DeleteDC (DCA)
.判断开始 (PatBool ＝ 真)
PatBool ＝ 假
.默认
PatBool ＝ 真