vcqq窗体:实现QQ窗体的缩入伸出功能

    不知道大家在使用QQ时有没有想到它缩入伸出功能是如何实现呢？实现这个效果关键在于如何判断当前鼠标指针下面窗体是不是我们窗体GetCursorPos是个可以获得鼠标指针在屏幕中坐标API利用它和FindVCLWindow结合就可以轻易地获得鼠标指针下VCL可视组件但当个窗体中不只个VCL可视组件例如可能还有TPanel、TMemo等等类型时那么我们就必须要查找到它们Parent级最终得到TForm那就是指我们窗体按照这个思路我自定义了GetFormNameAt它可获得当前鼠标指针下面窗体名称以下列出主要实现代码供大家参考:

//自定义GetFormNameAt获得鼠标针指下窗体Name
function GetFormNameAt ( X, Y : eger ) : ;
var
   P:TPo;
   W:TWinControl;
begin
   P.X := X;
   P.Y := Y;
   W := FindVCLWindow(P); //得到鼠标指针下VCL可视组件
    ( nil <> W ) then
   begin
      while w.Parent<>nil do //当W上级Parent不为空时就继续往上找
        w:=w.Parent;
      Result := W.Name;//最后返回窗体名称Name
   end
   
   begin
    Result := '';
   end;
end;




procedure TForm1.Timer1Timer(Sender: TObject);
var
   winPos:TPo;
begin
   GetCursorPos(winpos);  //得到当前鼠标指针在屏幕上坐标
  
   //当鼠标指针下窗体Name等于form1.name时
    form1.name=GetFormNameAt(winpos.X,winpos.Y) then
   {在此我们可以为form1取个特别名称以防有别窗体名称和它相同}
   begin
    form1.Timer2.Enabled:=false; //停用Timer2
    form1.Top:=0;  //form1Top和屏幕对齐
   end
   
    form1.Timer2.Enabled:=true; //开启Timer2
end;



procedure TForm1.Timer2Timer(Sender: TObject);
begin
    form1.Top<=20 then
      form1.Top:=-(form1.Height-10);//将form1向上移在屏幕上方露出10像素
end;

延伸阅读