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

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

//自定义函数GetFormNameAt,获得鼠标针指下窗体的Name

function 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) 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-10);//将form1向上移,在屏幕上方露出10像素

end;

· 湖北宜昌三峡坝区水面惊现神秘动物

近日,湖北宜昌,一段视频在当地热传:有网友在三峡坝区拍到神秘动物,体型硕大数米长...

· 什么是语段?语段的类型以及和句群、段落的区别与联系是什么?

句群是最高级的语言单位。 段落(自然段)是章法单位...

· 十八部好看的赌石类小说

以下是十八部(排名不分先后)好看的赌石类小说的简介,喜欢的朋友可以去搜索书名阅读...

 
实现QQ窗体的缩入伸出功能
来源:Delphi园地 不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢?实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中...查看完整版>>实现QQ窗体的缩入伸出功能
 
实现QQ窗体的缩入伸出功能(文章来自csdn)
不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢?实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中的坐标的API函数,利...查看完整版>>实现QQ窗体的缩入伸出功能(文章来自csdn)
 
用DELPHI实现透明以及半透明窗体
在QQ中,我可以调节面板的透明度。如果我们自己编程,应该如何实现呢? (一)半透明窗体 在windows2000以及后续产品中下增加了一些API,可以轻易的实现半透明的窗体,源程序如下:interfaceuses Windows, Me...查看完整版>>用DELPHI实现透明以及半透明窗体
 
QQ for Mac V1.1版将推出 实现视频通话功能
  近日,笔者从腾讯内部获悉, QQ for Mac V1.1版将在6月月末回归。而网友呼声最高的“视频聊天”功能有望首次入驻,延续以往PC版、Pad版“好友常相见”的沟通精神。除此之外,快捷键、自定义QQ表情、文件传输、群...查看完整版>>QQ for Mac V1.1版将推出 实现视频通话功能
 
实现小T的QQ功能
经过了半个多月的选机工作,终于下定决心买下心爱的小T .尽管花了我2200RMB,但是竟我几天的反复玩耍,还是觉得很值的.我是个QQ王.很喜欢跟人聊天.无奈自己没电脑.天天往网吧跑 那个烦啊~~~ 今天在附带说明书上看到它...查看完整版>>实现小T的QQ功能