![](https://img-blog.csdnimg.cn/20201014180756780.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
delphi
loadometer
这个作者很懒,什么都没留下…
展开
-
在dbgrid中增加计算字段
先在adoquery或adotable中增加计算字段;然后在adoquery或adotable的OnCalcFields事件,添上计算金额的代码就行了应用例子:已有数量和单价,增加金额字段。原创 2007-01-18 17:26:00 · 1538 阅读 · 0 评论 -
delphi中使用winexec()过程调用系统程序
例如调用计算器:winexec(cacl,0);原创 2007-01-17 17:03:00 · 1691 阅读 · 0 评论 -
用as进行类型转换
在多个组件通用的过程中,需先将sender由Tobject 转换为相应类后,才能访问组件的属性和方法。例如: procedure Tform1.ImgClick(sender:Tobject);begin(sender as Timage).visible:=false;end;在单击image组件时,使其透明 。另一种类型转换的方法如下:Timage(sender).原创 2007-01-28 20:10:00 · 669 阅读 · 0 评论 -
ini文件的创建和读写访问
使用ini文件保存设置,简便易行。 例如:保存和修改Timage组件的图片。//相关变量varimgBack:Timage;pndlgImgBack:TopenPictureDialog;inifile:Tinifile;//构建Tinifile对象inifile:=Tinifile.create(getCurrentDir+/test.ini); //使用绝对路径,以免出错.不知原创 2007-01-29 15:20:00 · 672 阅读 · 0 评论 -
Ttreeview和TlistBox的几个常用属性与方法
Ttreeviewtreeview1.selected.text; //被选择节点的文字; TlistBoxlistBox1.add(Treeview1.select.text); //将选中文字插入listbox1.items.text; //文字框的所有文字原创 2007-02-03 23:32:00 · 726 阅读 · 0 评论 -
运行时组件及其方法的实现
例如,程序中需要一个图片阵列,在单击某个图片时,该图片变得透明。一、运行时组件的声明、构造和初始化先声明一个组件数组: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原创 2007-01-29 10:28:00 · 595 阅读 · 0 评论