[问题]在一个窗体里有15个edit控件,要同时改变它们的Enable属性。怎样做最简单? 谢谢。 如题谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var i:integer; begin for i:=0 to componentcount-1 do begin if component[i] is TEdit then begin Tedit(component[i]).Enabled:=false; end; end; end; 改变父控件得Enabled得属性 var i:integer; begin for i:=0 to Controlcount-1 do begin if Controls[i] is TEdit then begin Tedit(Controls[i]).Enabled:=false; end; end; end;//这个会快点 把15个edit都放在一个panel中改panel的enabled就行了 回复人: linzhisong(無聊) ( ) 信誉:100 学了一招,试试去。 求助一段循环代码,请高手指点 急求 directshow9控件的下载 ADO 一对多数据库 数据库的动态建表???? 怎样删除目录中所有文件 用RBuilder打印报表的页脚问题。急。 在MySQL中是否有类似Access某一字段为必填字段的约束设置? 这个简单的sql语句该怎写? 如何得到DELPHI6的Samples页的ShellTreeView控件的选中结点的路径的全名? Delphi中是否有像VB中:Left()或Right()函数的功能函数? ( IP -- > User Account)在局域网内,如何根据IP或主机名得到该电脑上正在操作的用户帐号? 不用ado连行吗?
begin
for i:=0 to componentcount-1 do
begin
if component[i] is TEdit then
begin
Tedit(component[i]).Enabled:=false;
end;
end;
end;
begin
for i:=0 to Controlcount-1 do
begin
if Controls[i] is TEdit then
begin
Tedit(Controls[i]).Enabled:=false;
end;
end;
end;//这个会快点
改panel的enabled就行了
学了一招,试试去。