怎么能让DELPHI编出的程序像QQ一样可以自动隐藏？

Question

怎么能让DELPHI编出的程序像QQ一样可以自动隐藏？

Answer 1

private
    { Private declarations }
    procedure WMMOVE(var Msg: TMessage); message WM_MOVE;
    procedure CMMouseEnter(var Msg:TMessage);message CM_MouseEnter;
    procedure CMMouseLeave(var Msg:TMessage);message CM_MouseLeave;
--------------------------------------------------------------
procedure TfrmMain.CMMouseEnter(var Msg: TMessage);
begin
     Inherited;
  if frmMain.Top<0 then frmMain.Top:=0;
  Msg.Result:=0;
end;procedure TfrmMain.CMMouseLeave(var Msg: TMessage);
var pt: TPoint;
begin
    Inherited;
    GetCursorPos(pt);
    if PtInRect(Self.BoundsRect, pt) then Exit;
    frmMain.Top:=0-frmMain.Height +5;
end;procedure TfrmMain.WMMOVE(var Msg: TMessage);
var pt: TPoint;
begin
    Inherited;
    GetCursorPos(pt);
    if PtInRect(Self.BoundsRect, pt) then Exit;
    frmMain.Top:=0-frmMain.Height +5;
end;

Answer 2

好的，又学了一些了，谢谢楼主 和 Storm2008($$天冰$$)

Answer 3

Storm2008($$天冰$$) 方法不行啊  我试了
不行啊！！

Answer 4

我这有个源代码，把分给我，给我把Email发消息给我，我给你发过来

Answer 5

procedure WMMOVE(var Msg: TMessage); message WM_MOVE; 
出错！！！！