请问如何实现象QQ那样自动隐藏窗体？

请问如何实现象QQ那样自动隐藏窗体？鼠标感应窗体出现？

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

搂住的想法应该是自动挂靠，这样的控件应该有很多啊，可以到delphi技术站点搜索一下
给你一个例子：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    function GetFormNameAt ( X, Y : integer ) : string;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }//×Ô¶¨Òåº¯ÊýGetFormNameAt£¬»ñµÃÊó±êÕëÖ¸ÏÂ´°ÌåµÄName
function TForm1.GetFormNameAt(X, Y: integer): string;
var
   P:TPoint;
   W:TWinControl;
begin
   P.X := X;
   P.Y := Y;
   W := FindVCLWindow(P); //µÃµ½Êó±êÖ¸ÕëÏÂµÄVCL¿ÉÊÓ×é¼þ
   if ( nil <> W ) then
   begin
      while w.Parent<>nil do //µ±WµÄÉÏ¼¶Parent²»Îª¿ÕÊ±¾Í¼ÌÐøÍùÉÏÕÒ
        w:=w.Parent;
      Result := W.Name;//×îºó·µ»Ø´°ÌåµÄÃû³ÆName
   end
   else
   begin
    Result := '';
   end;end;procedure TForm1.Timer1Timer(Sender: TObject);
var
   winPos:TPoint;
begin
  if (form1.Top<=3) or (form1.Left>=screen.Width-form1.Width-3) or (form1.Left<=3) then //ÅÐ”à
  begin
     GetCursorPos(winpos);  //µÃµ½µ±Ç°Êó±êÖ¸ÕëµÄÔÚÆÁÄ»ÉÏµÄ×ø±ê     //µ±Êó±êÖ¸ÕëÏÂµÄ´°ÌåµÄNameµÈÓÚform1.nameÊ±
     if form1.name=GetFormNameAt(winpos.X,winpos.Y) then
     {ÔÚ´ËÎÒÃÇ¿ÉÒÔÎªform1È¡Ò»¸öÌØ±ðµÄÃû³Æ£¬ÒÔ·ÀÓÐ±ðµÄ´°ÌåÃû³ÆÓëËüÏàÍ¬}
     begin
      form1.Timer2.Enabled:=false; //Í£ÓÃTimer2
      form1.Top:=0;  //form1µÄTopÓëÆÁÄ»¶ÔÆë
     end
     else
      form1.Timer2.Enabled:=true; //¿ªÆôTimer2
  end;
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
if form1.Top<=20 then
    form1.Top:=-(form1.Height-5);//½«form1ÏòÉÏÒÆ£¬ÔÚÆÁÄ»ÉÏ·½Â¶³ö5ÏñËØ
end;
end.
再来一次：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    function GetFormNameAt ( X, Y : integer ) : string;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }function TForm1.GetFormNameAt(X, Y: integer): string;
var
   P:TPoint;
   W:TWinControl;
begin
   P.X := X;
   P.Y := Y;
   W := FindVCLWindow(P);
   if ( nil <> W ) then
   begin
      while w.Parent<>nil do
        w:=w.Parent;
      Result := W.Name;
   end
   else
   begin
    Result := '';
   end;end;procedure TForm1.Timer1Timer(Sender: TObject);
var
   winPos:TPoint;
begin
  if (form1.Top<=3) or (form1.Left>=screen.Width-form1.Width-3) or (form1.Left<=3) then
  begin
     GetCursorPos(winpos);
     if form1.name=GetFormNameAt(winpos.X,winpos.Y) then     begin
      form1.Timer2.Enabled:=false;
      form1.Top:=0;
     end
     else
      form1.Timer2.Enabled:=true;
  end;
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
if form1.Top<=20 then
    form1.Top:=-(form1.Height-5);
end;
end.