如何实现窗口的自动隐藏？？？？

Question

各位大虾
我想知道像QQ的自动隐藏功能是怎么实现的？？
各位有什么资料或者在那里可以下载到实例，请告诉小弟！！！！！十万火急！！！
万分感谢！！！

Answer 1

我给你一段代码试一下： 
在 form上放置Panel1 和 ApplicationEvents1，设置panel为alTop，height:=150； 
在ApplicationEvents1的OnMessage中写代码！ 
－－－－ 
unit Unit1; interface uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, AppEvnts, ExtCtrls, StdCtrls; type 
TForm1 = class(TForm) 
Panel1: TPanel; 
ApplicationEvents1: TApplicationEvents; 
procedure ApplicationEvents1Message(var Msg: tagMSG; 
var Handled: Boolean); 
procedure FormDestroy(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; var 
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; 
var Handled: Boolean); 
var p:tpoint; 
begin 
p:=ScreenToClient(Msg.pt); 
if p.Y<=Panel1.Height then Panel1.Visible:=true; 
if p.Y>Panel1.Height then Panel1.Visible:=false; 
end; 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
Form1:=nil; 
end; 
end. 
－－ 
QQ的原理类似，将panel的改为form，你自己试试去吧！ 
用到了一个ScreenToClient函数！

Answer 2

以前在dsp上有一个控件
可以实现自动隐藏的功能在<<Delphi第三方控件大全>>这本书中也有描述
好像书的配套光盘里就有你找找看