如何实现窗口吸附和靠边隐藏效果?

karial

如题，想制作出和QQ类似的窗口效果，结果做后窗口会死掉。。。
//窗口初始化
功能 初始化()
    窗口句柄=窗口.自身句柄()
    窗口.获取大小(窗口句柄,x坐标,y坐标)
    系统.获得分辨率(屏幕宽,屏幕高)     
功能结束




//窗口吸附
功能 定时器0_时钟()
    窗口.获取位置(窗口句柄,x坐标,y坐标)
    if(x坐标<10)
        窗口.设置位置(窗口句柄,0,y坐标)
    endif
    if(屏幕宽-窗口宽-10<x坐标)
        窗口.设置位置(窗口句柄,屏幕宽-窗口宽,y坐标)
    endif
    if(y坐标<10)
        窗口.设置位置(窗口句柄,x坐标,0)
    endif
功能结束



//靠边隐藏
功能 定时器1_时钟()
    if(x坐标<0)
        遍历(tx=x坐标;tx<-窗口宽+1;tx--)
            窗口.设置位置(窗口句柄,0,y坐标)
        遍历结束
    endif
    if(屏幕宽-窗口宽/2<x坐标)
        遍历(tx=屏幕宽-x坐标;tx>屏幕宽;tx++)
            窗口.设置位置(窗口句柄,tx,y坐标)
        遍历结束
    endif
    if(y坐标<0)
        遍历(ty=y坐标;ty<-窗口高;ty--)
            窗口.设置位置(窗口句柄,x坐标,ty)
        遍历结束
    endif
功能结束

karial

没人回吗？自顶一个先.........

alukaduo09

好像见过有人写过类似的程序

基本原理就是使用的消息路由。 设置窗口大小

chenlong4454

- -这样的特效案例TC少之又少

glb3699

楼主代码还未试验过,而且定时器还不懂.
不过我有个疑问.
这段代码是无限循环的罢?为何从开头到结尾都没有一毫秒的延时呢?不延时的话,好像也是会卡死的.

冥焱皇朝

多谢分享！