窗口内自动判断鼠标拖出拖后鼠标左键弹起

取窗口矩形_ (取窗口句柄 (), 按钮矩形)
.如果 (已捕获)
.如果真 (取鼠标水平位置 () ＜ 按钮矩形.左边 或 取鼠标水平位置 () ＞ 按钮矩形.右边 或 取鼠标垂直位置 () ＜ 按钮矩形.顶边 或 取鼠标垂直位置 () ＞ 按钮矩形.底边) ' 鼠标在控件外
.如果真 (左键点击)
左键点击 ＝ 假
启动线程 (&子程序1, , )