摘要：来源：delphi园地
不知道大家在使用qq时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。getcursorpos()是一个可以获得鼠标指针在屏幕中的坐标的api函数，利用它与findvclwindow()的结合就可以轻易地获得鼠标指针下的vcl可视组件，但当一个窗体中不只一个vcl可视组件，例如可能还有tpanel、t......
摘要： [mental studio]猛禽[blog]
去年我花了很多时间尝试用delphi进行基于xml的web应用开发。起初的设想是很美好的，但结果做出来的东西很简陋。一部分原因就在于xml到object之间的数据绑定实现太麻烦（另一部分是因为对xslt不熟，学习它花了很多时间）。
之前我一直是用delphi提供的xml data binding来做的，基本做法是：先用工具（如xmlspy......
枚舉並設置界面的Caption之多語言方法
uses
..., typinfo; 【程序编程相关:
Delphi 7 中使用RAVE报表（二】 【推荐阅读:
Delphi入门点点滴滴 [原创]（20】 【扩展信息:
中港台譯名對照表簡易語法版
】
function tform1.isapropexist(ainst: tobject; const propname: string): boolean;
var propinfo: ppropinfo; begin result := false; propinfo := getpropinfo(ainst, propname); if propinfo <> nil then result := propinfo.name = propname; end;
procedure tform1.button2click(sender: tobject); var i: integer; begin for i := 0 to self.componentcount - 1 do begin if isapropexist(self.components[i], caption) then setpropvalue(self.components[i], caption, inttostr(i)); end; end;
...
下一页 摘要：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......
