是否可用循环的方法设置多个组件的属性? 例如有 Label1 Label2 Label3......是否可用循环的方法设置各Label的Caption属性? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 虽然这个应用很方便,但是问的次数也太多了点procedure TForm1.Button1Click(Sender: TObject);var i: integer;begin for i:=1 to 4 do if FindComponent('Label'+IntToStr(i)) <> nil then TLabel(FindComponent('Label'+IntToStr(i))).Clear;end; 谢谢!谢谢!这个clear不行的吧,但已经明白了。 Delphi 树形菜单问题 Delphi打印程序有哪些方法可以实现? delphi控件大小自适应分辨率怎么做 有哪个组件是可以合并单元格且单元格是可以放图片的? 安装delphi控件.DPK的问题。。。 很基本的主从表问题 如何在程序开始运行的时候不显示,直接在任务栏上显示图标,最好提供代码,谢谢。 事件响应问题? 请问哪里可以下载数据库对应的 通信波形分析控件 ,谢谢,急,马上给分 , 超级菜鸟问题1:function和procdure有什么区别 请教:如何ActiveX添加自定义事件? 请问如何解决TClientSocket的11001异常问题?
var
i: integer;
begin
for i:=1 to 4 do
if FindComponent('Label'+IntToStr(i)) <> nil then
TLabel(FindComponent('Label'+IntToStr(i))).Clear;
end;
这个clear不行的吧,但已经明白了。