摘要：
二、语句 首先要说一下begin ... end； 相当于c或者c＋＋中的{ ... }。 (1)声明语句 常量：const 常量标识符[:类型]=常值； 变量：var 变量标识符：数据类型； (2)表达式语句 由运算符组成的合法语句 运算符优先级： 运算符 优先级 @ not 1 (最高) *,/,div,mod,and,shl,shr,as, 2 +,-,or,xor ......
摘要：
每个程序都有自己的生存空间，在windows系统中你可以在任何时候让你的程序执行一些操作，还可以触发消息，触发的消息分为三种，一是操作你程序的界面，onclick，onmousemove等等，另外一个可以使用windows的消息机制来捕获一些系统消息，但是如果你想在任何时候监控任何程序的情况那可能你就会选择hook来实现了，虽然还有其他方法，但不得不承认，hook是一个比较简单解决问题的途径。w......
枚舉並設置界面的Caption之多語言方法
uses
..., typinfo; 【程序编程相关:
Delphi中使用纯正的面向对象方法】 【推荐阅读:
修正XPMenu的两个Bug】 【扩展信息:
如何用Delphi编写自己的可视化控件】
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;
...
下一页 摘要：
新建一个工程,放上一个tidhttp控件，一个tidantifreeze控件，一个tprogressbar用于显示下载进度。最后放上一个tbutton用于开始执行我们的命令。代码如下：
procedure tform1.button2click(sender: tobject);var mystream:tmemorystream;begin idantifreeze1.on......
