易语言 拖动时 无边框 悬浮窗 (比如迅雷的悬浮窗) 怎么做出这种效果?

[复制链接]
查看11 | 回复3 | 2012-8-12 19:01:41 | 显示全部楼层 |阅读模式
给你个简单的,直接复制代码即可,要好看点记得把窗口设无边框哦,有边框的话题还要计算窗口边框才行,否则不准! .版本 2.支持库 eAPI.程序集 窗口程序集1.程序集变量 x.程序集变量 y.程序集变量 移动, 逻辑型.子程序 __启动窗口_鼠标左键被按下, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型x = 横向位置y = 纵向位置捕获鼠标 (取窗口句柄 ())移动 = 真.子程序 __启动窗口_鼠标左键被放开, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型移动 = 假释放鼠标 ()...
回复

使用道具 举报

千问 | 2012-8-12 19:01:41 | 显示全部楼层
截取迅雷的浮窗图片然后窗口最前,随意移动,就行了...
回复

使用道具 举报

千问 | 2012-8-12 19:01:41 | 显示全部楼层
_启动窗口.发送信息 (161, 2, 0)...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行