消息路由--实现窗口最小化最大化和移动事件

venski

//同样的,因为我没有找到在TC怎么定义最大化和最小化事件，本着触类旁通的思想，我用下面的简单方法实现，希望大家采纳，并给我更好的建议！

功能 我的应用_消息路由(句柄,消息,w参数,l参数,时间,x坐标,y坐标)
    如果((消息==161)&&(w参数==8))||((消息==274)&&(w参数==61472))   //这里使用两种方法同时去判断
        //下面写上你自己的最小化事件处理方法
    如果结束
    如果(消息==274)&&(w参数==61728)    //激活窗口,也就是最大化的消息
        //下面写上你自己的最大化事件处理方法
    如果结束
    如果(消息==160)&&(w参数==2)    //鼠标停留在窗口标题界面区 W参数:2,表示窗口标题区,8表示最小化按钮,9表示最大化按钮,20关闭按钮,18接窗口边界
        //下面写上你自己的移动事件处理方法,这里能满足要求,但不是最好的办法!请亲自测!
    如果结束
功能结束

分享是一种美德,创造美好的一天!

cylhb

不错，支持一下。
可以省去找消息值的步骤了。偷懒。

xt001118

111111

jxfa0086768

功能 浏览器_消息过程(消息,w参数,l参数)   
    select(消息)
        case 5
        变量 x1,y1,x2,y2
        窗口获取客户区(窗口获取自我句柄(),x1,y1,x2,y2)
        if(w参数==0)
            调试输出("窗口还原"&x1&","&y1&","&x2&","&y2)
            控件设置位置("浏览器0",x1,y1,x2,y2,2)
        elseif(w参数==1)
            调试输出("窗口最小化"&x1&","&y1&","&x2&","&y2)
        elseif(w参数==2)
            调试输出("窗口最大化"&x1&","&y1&","&x2&","&y2)
            控件设置位置("浏览器0",x1,y1,x2,y2,2)
        end      
        default        
    end   
结束