假设我有十个LABEL控件,分别是LABEL1..LABEL10,我想同时设置他们的CAPTION属性都一样,LabelI.caption="";我想永I代替1到10,可以吗?/代码如何写???
解决方案 »
- DBGrid单元格组件自定义(高手进来讨论一下)高分结贴
- 麻烦各位帮忙改下这两个VB的东西改成DELPHI的
- tcombobox控件问题
- stringgrid 行或列在颜色变换时导致原来的内容消失
- 各位高手指教。如何得到在动态链接库中创建的对象(需要再主程序中调用),我现在的方法在运行时总是出错。
- 用delphi打开excel时候,如何让excel的保存功能失效?
- 请问如何设置多重菜单,我用mainmenu时只能实现一重菜单,请指教!
- 字体的问题(在中文操作系统中显示为日文)
- 关于打印
- 怎么在菜单里实现输入法的转换?
- 一个关于动态生成某种类型的问题as TmyType:
- >>> 集合数据如何存到磁盘文件 <<<
i :integer;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is Tlabel then
Tlabel(Components[i]).caption="";
end;
上面的有一点小错误(抄了你的:P) Tlabel(Components[i]).caption="";改为:
Tlabel(Components[i]).caption := '';
说明一下var
i :integer;
begin
for i := 0 to ComponentCount - 1 do //ComponentCount----窗体上所有控件数
if Components[i] is Tlabel then //如果控件为Tlabel
Tlabel(Components[i]).caption := ''; //lable1的caption为空
end;