不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。

开发技术指南» 文章正文

引言：不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。

摘要：首先，你的机器里要装有flash播放软件（你的ie能显示flash）。ie之所以能显示flash是安装了由macromedia公司提供的swflash.ocx控件，我们可以在win98的$windows\system\macromed \flash中或在win2000中的$winnt\system32\ macromed\flash中找到它。activex控件在windows里是通用的，delph......

·winsock完成端口模型-delphi代码 »显示摘要«

摘要：原文出处《windows网络编程技术》第8章完成端口模型由于原书附的是c代码，我把其翻译成delphi代码。其中winsock2.pas在delphi中不带，要另外下载http://jungla.dit.upm.es/~bti/files/winsock2.pas program completionio; {$apptype console} uses sys......

实现QQ窗体的缩入伸出功能(文章来自csdn)

不知道大家在使用qq时有没有想到它的缩入伸出的功能是如何实现的呢?实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体.getcursorpos()是一个可以获得鼠标指针在屏幕中的坐标的api函数,利用它与findvclwindow()的结合就可以轻易地获得鼠标指针下的vcl可视组件,但当一个窗体中不只一个vcl可视组件,例如可能还有tpanel.tmemo等等类型时,那么我们就必须要查找到它们的parent级,最终得到tform,那就是指我们的程序窗体.按照这个思路我自定义了getformnameat()函数,它可获得当前鼠标指针下面的窗体的名称.以下列出程序的主要实现代码,供大家参考:(由書生整理,win2000+delphi測試通過)

【程序编程相关:发现d2005的使用问题: d2005会】

【推荐阅读:function GetVersion(】

【扩展信息:Delphi编程实现Ping操作】

//自定义函数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

... 下一页

·delphi中的布尔类型 »显示摘要«

摘要：delphi中定义了四种布尔类型：boolean，bytebool，wordbool和longbool。后面三种布尔类型是为了与其他语言兼容而引入的，一般情况下建议使用boolean类型。这四种类型的布尔值占用内存的数量如下： boolean 1 byte bytebool 1 byte wordbool 2 bytes（1 word） longbool 4 bytes（2 words......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：