TC官方合作论坛

标题: 仿QQ吸附屏幕改进版 [打印本页]

作者: itcfan 时间: 2015-4-27 16:22
标题: 仿QQ吸附屏幕改进版
本帖最后由 itcfan 于 2015-4-27 16:28 编辑

功能仿QQ隐藏边缘_初始化()
线程开启("界面隐藏","")
设置托盘("吸附界面",假)
结束

功能界面隐藏()
变量 hwnd,hwnds,宽,高,窗口宽,窗口高,x,y,父窗口句柄,孩子窗口句柄
hwnds=窗口获取自我句柄()
窗口置顶(hwnds,真)
循环(真)
      动态库调用(获取资源路径("rc:dlltest.dll"),"int","ShowInTaskbar","int",hwnds,"int",0)
      系统获取分辨率(宽,高)
      窗口获取大小(hwnds,窗口宽,窗口高)
      hwnd=窗口获取鼠标所在句柄()
      孩子窗口句柄=hwnd
      遍历(变量 i = 0; i < 10; i++)
         父窗口句柄=窗口获取父窗口(孩子窗口句柄)
         如果(父窗口句柄>0)
            孩子窗口句柄=父窗口句柄
         否则如果(孩子窗口句柄>0)
            hwnd=孩子窗口句柄
            跳出
         结束
      结束

      窗口获取位置(hwnds,x,y)
      如果(hwnd!=hwnds)//各方向隐藏
         如果(y<=0)
            窗口设置位置(hwnds,x,-窗口高+5)
         否则如果(x<=0&&y>0)
            窗口设置位置(hwnds,-窗口宽+5,y)
         否则如果(x>=宽-窗口宽&&y>0)
            窗口设置位置(hwnds,宽-5,y)
         结束
      否则//各方向显示
         如果(y<=0)
            窗口设置位置(hwnds,x,0)
         否则如果(x<=0&&y>0)
            窗口设置位置(hwnds,0,y)
         否则如果(x>=宽-窗口宽&&y>0)
            窗口设置位置(hwnds,宽-窗口宽,y)
         结束
      结束
      等待(300)
结束
结束

===========================================================

红色是修改的地方，效果是：
1、任务栏不出现标题。
2、窗口置顶方便出现。
3、增加托盘图标显示。
虽然只是增加几行代码，但也死了不少脑细胞！

还需要改进问题：
1、不是吸附屏幕时，窗口置顶会影响其它窗口。（想了半天没想到怎么解决：吸附时置顶，不是时取消置顶的方法，高手完善吧！）
2、双击托盘不会出现窗口。（没托盘源码，高手完善吧！）
3、软件最小化时，如吸附了屏幕，双击托盘闪一下就吸附屏幕了。（没托盘源码，高手完善吧！）

[attach]20121[/attach]
PS：管理员老大，TC5帮助文档的悬浮窗口代码好像有BUG啊！

作者: veeyoo 时间: 2015-4-27 17:57
，TC5帮助文档的悬浮窗口代码好像有BUG啊！
那个89行，i=1错了，提交几次了，也没见更改过

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)