您的位置：程序门 -> delphi -> 非技术区



让程序最小化时看不到程序，然后用快捷方式调出来这个要怎么做呢？


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


让程序最小化时看不到程序，然后用快捷方式调出来这个要怎么做呢？
发表于：2007-06-12 20:19:52 楼主
让程序最小化时看不到程序，然后用快捷方式调出来这个要怎么做呢？
发表于：2007-06-12 20:32:061楼 得分:0
程序最小化时看不到：
type
    tform1   =   class（tform)
    private
        {   private   declarations   }
        procedure   on_mininize（var   msg:   tmessage);   message   wm_syscommand;
    public
        {   public   declarations   }
    end;

var
    form1:   tform1;

implementation

{$r   *.dfm}

procedure   tform1.on_mininize（var   msg:   tmessage);
begin
    if   （msg.msg   =   wm_syscommand)   then
        if   （msg.wparamlo   =   sc_minimize)   then
            self.hide;
end;
发表于：2007-06-12 20:34:032楼 得分:0
看不到程序后，使用快捷建调出程序。
需要使用系统钩子，拦截指定的快捷健。
发表于：2007-06-12 21:25:573楼 得分:0
多谢高手指教，有没有办法用热键调出来呢？要不隐藏了。就调不出来用了。
发表于：2007-06-12 23:25:464楼 得分:0
已经给你说了,用键盘钩子...

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击