请教易语言中如何拖动一个控件，比如按钮

kpdm9z

请教易语言中如何拖动一个控件，比如按钮
我点击按钮后，拖动到窗口的另一个位置，松开就在新位置了。
谢谢。

大司命

https://www.eyuyan.la/post/15148.html

你是想要这种功能吧~

sunsir

https://bbs.125.la/forum.php?mod ... 7%D5%FB%D7%E9%BC%FE

万古一念间

.版本 2

.子程序 _按钮1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

左边1 ＝ 横向位置
顶边1 ＝ 纵向位置
J_LJ ＝ 真

.子程序 _按钮1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (J_LJ)
    按钮1.左边 ＝ 按钮1.左边 ＋ 横向位置 － 左边1
    按钮1.顶边 ＝ 按钮1.顶边 ＋ 纵向位置 － 顶边1

.如果真结束


.子程序 _按钮1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

J_LJ ＝ 假



补充内容 (2019-12-21 20:53):
有一定bug 就是 鼠标一旦移出窗口外 就回不来了

万古一念间

万古一念间 发表于 2019-12-21 20:53
.版本 2

.子程序 _按钮1_鼠标左键被按下, 逻辑型

@大司命  这个bug 麻烦 给瞧瞧

走一回

按钮1.发送信息 (274, 61458, 0)
因为按钮本身就有按下事件,所以效果用不太好

kpdm9z

万古一念间 发表于 2019-12-21 20:53
.版本 2

.子程序 _按钮1_鼠标左键被按下, 逻辑型

谢谢。谢谢。谢谢。谢谢。

kpdm9z

走一回 发表于 2019-12-21 20:56
按钮1.发送信息 (274, 61458, 0)
因为按钮本身就有按下事件,所以效果用不太好

嗯，好的。我知道了。谢谢。

北冥

你要.发送信息 (161, 2, 0)

补充内容 (2019-12-21 22:56):
在你要拖动的组件，左键按下事件里面

列明

我猜你是要這個：
https://www.eyuyan.la/post/16313.html
IDE组件设计 - 界面设计 - 可视化设计
源码名称：IDE组件设计
源码作者：邓学彬(泪闯天涯)
源码说明：在窗口上“画出”各种组件，支持8方向任意调整尺寸、位置。