如何拖拽按钮让跟随鼠标移动到鼠标所在位置？

wh1234567

请教一个问题：按住组件按钮1进行拖动，让组件按钮1移动到主窗口内任意鼠标所在位置，如何实现？
也就是当鼠标按住进行移动按钮1，鼠标放开后 按钮1自动就停留在鼠标放开时的位置，前提是组件按钮不得超出主窗口。求例子

chenboss

窗口内随意移动按钮修复单击失效.e

aipca

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
被按下	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

被按下 ＝ 真

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (被按下 ＝ 真)
按钮1.左边 ＝ 横向位置 ＋ 5
按钮1.顶边 ＝ 纵向位置 ＋ 5

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

被按下 ＝ 假

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 被按下, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 被按下 ＝ 真<br /> <br /> <br /> .子程序 __启动窗口_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (被按下 ＝ 真)<br />     按钮1.左边 ＝ 横向位置 ＋ 5<br />     按钮1.顶边 ＝ 纵向位置 ＋ 5<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 被按下 ＝ 假

w5717

按钮让跟随鼠标移动到鼠标所在位置，这样？

走一回

按钮1.发送信息 (274, 61458, 0)

wh1234567

w5717 发表于 2025-1-10 11:51
按钮让跟随鼠标移动到鼠标所在位置，这样？

感谢老师理解和帮助，就是这个意思，能不能加个判断，也就是让按钮停留不得超出窗口外，

补充内容 (2025-1-10 12:50):
能不能弄成函数，可以直接调用和应用于其他组件？

熬夜

我问问 t - 副本.e (1.04 MB, 下载次数: 1)

2025-1-10 12:48 上传

点击文件名下载附件

wh1234567

chenboss 发表于 2025-1-10 12:47
窗口内随意移动按钮修复单击失效.e

能不能拖动不影响单击功能？拖拽只是移动位置，不等于单击执行按钮下面代码

chenboss

wh1234567 发表于 2025-1-10 12:56
能不能拖动不影响单击功能？拖拽只是移动位置，不等于单击执行按钮下面代码 ...

就是你要的效果，拖动是拖动，单击是单击

wh1234567

chenboss 发表于 2025-1-10 12:47
窗口内随意移动按钮修复单击失效.e

是限制让按钮组件不得超出窗口，不是限制鼠标超出窗口，期待修正