.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 原始控件坐标, 整数型, , "2", 1是X坐标,2是Y坐标
.程序集变量 原始鼠标坐标, 整数型, , "2"
.子程序 _按钮1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
原始控件坐标 [1] = 按钮1.左边
原始控件坐标 [2] = 按钮1.顶边
原始鼠标坐标 [1] = 取鼠标水平位置 ()
原始鼠标坐标 [2] = 取鼠标垂直位置 ()
.子程序 _按钮1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 X, 整数型
.局部变量 Y, 整数型
X = 原始控件坐标 [1] + 取鼠标水平位置 () - 原始鼠标坐标 [1]
Y = 原始控件坐标 [2] + 取鼠标垂直位置 () - 原始鼠标坐标 [2]
移动控件 (X, Y)
.子程序 移动控件
.参数 现X, 整数型
.参数 现Y, 整数型
按钮1.左边 = 现X
按钮1.顶边 = 现Y




