引言： 来源：Delphi园地
不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。
摘要： [mental studio]猛禽[blog]
去年我花了很多时间尝试用delphi进行基于xml的web应用开发。起初的设想是很美好的，但结果做出来的东西很简陋。一部分原因就在于xml到object之间的数据绑定实现太麻烦（另一部分是因为对xslt不熟，学习它花了很多时间）。
之前我一直是用delphi提供的xml data binding来做的，基本做法是：先用工具（如xmlspy......
摘要：unit crc32;
interface ---转截ksaiy的blog
uses windows,sysutils,classes;
const //crc32表 table:array[0..255] of dword= ( $00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f, $e963a535, $9......
实现QQ窗体的缩入伸出功能
来源:delphi园地
【程序编程相关:
第5部分 编译文件（第12页)
】
不知道大家在使用qq时有没有想到它的缩入伸出的功能是如何实现的呢?实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体.getcursorpos()是一个可以获得鼠标指针在屏幕中的坐标的api函数,利用它与findvclwindow()的结合就可以轻易地获得鼠标指针下的vcl可视组件,但当一个窗体中不只一个vcl可视组件,例如可能还有tpanel.tmemo等等类型时,那么我们就必须要查找到它们的parent级,最终得到tform,那就是指我们的程序窗体.按照这个思路我自定义了getformnameat()函数,它可获得当前鼠标指针下面的窗体的名称.以下列出程序的主要实现代码,供大家参考:(由書生整理,win2000+delphi測試通過) 【推荐阅读:中港台譯名對照表簡易語法版
】
//自定义函数getformnameat,获得鼠标针指下窗体的name 【扩展信息:第3部分 编译文件（第8页）
】
function getformnameat ( x, y : integer ) : string; var p:tpoint; w:twincontrol; begin p.x := x; p.y := y; w := findvclwindow(p); //得到鼠标指针下的vcl可视组件 ...
下一页 摘要： 新建一个工程,放上一个tidhttp控件，一个tidantifreeze控件，一个tprogressbar用于显示下载进度。最后放上一个tbutton用于开始执行我们的命令。代码如下：
procedure tform1.button2click(sender: tobject);var mystream:tmemorystream;begin idantifreeze1.onl......
