loadometer的专栏

先在adoquery或adotable中增加计算字段；然后在adoquery或adotable的OnCalcFields事件，添上计算金额的代码就行了应用例子：已有数量和单价，增加金额字段。 

例如调用计算器：winexec(cacl,0); 

在多个组件通用的过程中，需先将sender由Tobject 转换为相应类后，才能访问组件的属性和方法。例如: procedure Tform1.ImgClick(sender:Tobject);begin(sender as Timage).visible:=false;end;在单击image组件时,使其透明 。另一种类型转换的方法如下：Timage(sender).

使用ini文件保存设置，简便易行。 例如：保存和修改Timage组件的图片。//相关变量varimgBack:Timage;pndlgImgBack:TopenPictureDialog;inifile:Tinifile;//构建Tinifile对象inifile:=Tinifile.create(getCurrentDir+/test.ini); //使用绝对路径,以免出错.不知

 Ttreeviewtreeview1.selected.text; //被选择节点的文字; TlistBoxlistBox1.add(Treeview1.select.text); //将选中文字插入listbox1.items.text; //文字框的所有文字 

例如，程序中需要一个图片阵列，在单击某个图片时，该图片变得透明。一、运行时组件的声明、构造和初始化先声明一个组件数组：varImgBack:array [0..4,0..4] og Timage;构造对象实例，初始化各属性。for i:=0 to 4 do  for j:=0 to 4 do     begin         ImgBack[i,j]:=Timage.create(s