精易论坛

标题: 窗口最小化和停靠如何影藏 [打印本页]

作者: 爱不可以重来 时间: 2013-11-23 17:45
标题: 窗口最小化和停靠如何影藏
点击窗口最小化如何影藏窗口
窗口停靠屏幕边时自动影藏

作者: 屎加豆 时间: 2013-11-23 17:55

判断窗口位置........

作者: 犯人 时间: 2013-11-23 19:13
最小化需要隐藏什么? 是置托盘图标吗
？

作者: 长发 时间: 2013-11-23 21:29
没明白什么意思

作者: 粉蝴蝶软件 时间: 2013-11-23 22:28
这是我自己写的一个模块，就是仿QQ窗口隐藏，并且隐藏的效果比QQ更好

[e]
.版本 2
.支持库 EThread

.子程序边缘窗口, , 公开, 窗口边缘隐藏，已在QQ窗口隐藏的效果上进行了升级
.参数 window, 窗口, , 窗口组件
.参数 Switch, 逻辑型, , 真为启动，假为停止

.如果真 (Switch ＝假)
关闭＝真
返回 ()
.如果真结束
关闭＝假
执行窗口＝ window
启动线程 (&边缘控制, , )

.子程序边缘控制, , , 窗口隐藏的线程控制
.局部变量 X, 整数型
.局部变量 Y, 整数型
.局部变量状态, 逻辑型, , , 真为展开，假为收起
.局部变量 N, 整数型
.局部变量 a, 整数型

.判断循环首 (关闭＝假)
延时 (100)
X ＝取鼠标垂直位置 ()
Y ＝取鼠标水平位置 ()
.如果 (执行窗口.左边－ Y ＜ 50 且 Y －执行窗口.左边＜执行窗口.宽度＋ 50 且 X ＜执行窗口.顶边＋执行窗口.高度＋ 20)
.如果 (X ＜ 2)
.如果真 (执行窗口.顶边＜ 5)
.判断循环首 (状态＝假)
延时 (50)
执行窗口.顶边＝执行窗口.顶边－执行窗口.顶边 ÷ 2
.如果真 (执行窗口.顶边＞ -1)
状态＝真
执行窗口.顶边＝ -1
.如果真结束

.判断循环尾 ()
.如果真结束

.否则

.如果结束

.否则
.如果真 (执行窗口.顶边 ≤ 10)
.判断循环首 (状态＝真)
延时 (30)
N ＝执行窗口.顶边 × 2
.如果 (N ＞－执行窗口.高度＋ 2)
执行窗口.顶边＝ N
.否则
执行窗口.顶边＝－执行窗口.高度＋ 2
状态＝假
.如果结束

.判断循环尾 ()
.如果真结束

.如果结束

.判断循环尾 ()

[/e]

欢迎光临精易论坛 (https://125.confly.eu.org/)