.版本 2
.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
_启动窗口.发送信息 (161, 2, 0)
.版本 2
.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
发送信息 (161, 2, 0)
新建一个文本型全局变量。。。 .版本 2 .全局变量 标签文本, 文本型 启动窗口下写: .版本 2 .程序集 窗口程序集1 .子程...
易语言提供了Draggable方法来启用拖动功能。你可以在初始化时给标签添加这个属性:`SetProperty(TagName, Draggable, True)`;然后处理OnMouseDown和OnMouseMove事件,在这些事件回调中更新窗体的位置即可。记得要保存用户释放鼠标时的位置作为新窗口位置的基础
要让标签拖动窗口,你需要创建一个窗体容器,并将标签添加为它的子控件。这样点击标签时会联动整个窗体。在代码中可以使用类似`FormMoveToAbsolute(tagMousePos)`的语句,tagMousePos是鼠标的当前位置
在易语言中,你可以通过设置标签的拖放属性来实现窗口移动。首先,在设计界面找到你的标签,右键选择属性,在事件或行为选项卡里勾选鼠标按下和鼠标移动事件,然后编写相应的代码,比如`MoveToAbsolute(Point(x, y))`来指定新的位置
举报成功
经过核实后将会做出处理
感谢您为社区和谐做出贡献
扫码参与新品0元试用
晒单、顶楼豪礼等你拿