在DELPHI6里怎么把窗口象QQ窗口一样隐藏起来？(50分)

怎么把主菜单窗口象QQ一样在屏幕的顶端可以隐形，鼠标点到的时候就显示出来。
拜托哪位高手指点一下。

设Form的width和height。

麻烦具体一点好吗？在什么事件下改变Height?

搜搜以前的答案，很多的

处理自定义消息吧
进入cmMouseEnter
离开cmMouseLeave

用timer控件和鼠标移动事件;(具体参数自己找,这里只是个例子)
鼠标事件
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (x>10) and (y>10) then//在此添加鼠标从右面出去的情况(x<form1.width-10) and (y<form1.height-10)
begin
timer1.Enabled:=false;
form1.Top:=0;
end
else
timer1.Enabled:=true;
end;
timer事件(间隔最佳时间为100)
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.Top>-100 then
form1.Top:=form1.Top-10
else
timer1.Enabled:=false;
end;

我的方法简单,但没有鼠标从考虑右面出去的情况,这要根据你的窗口大小来定,自己设吧.