如何得到控件个数。

[oldearth]

我想得到 TabSheet1 包含的控件个数
TabSheet1.ComponentCount
结果=0 但里面有好几个控件
不知道我写的对不对。

[oldearth]

解决了。
for I := 0 to ComponentCount-1 do
begin
if Components[I] is TEdit then
begin
TEdit(Components[I]).Clear;
end;
end;
多谢各位大虾，但我不明白同样是容器form 就可已用,TabSheet就不行。

[huojiehai]

TabSheet1.ComponentCount得到的是组件的个数
TabSheet1.ControlCount 得到的是控件的个数

[ihihonline]

海天子说的好；是问题的关键；
呵呵
论坛正在升级中，有时可能会出现连接错误，请见凉 ，只要稍后再登录就可以解决
==================================================
招聘斑竹

如果您觉的您对Delphi感兴趣或是很想学的更好些或者是对Delphi有更深的认识，我们可以一起交流；
呵呵
www.nxrs.net/bbs
谢谢，别抛砖

[dyf2001]

改用controlcount

[dyf2001]

controls是其子控件数组
Components是其拥有组件数组
组件的Owner都是窗体，所以tabsheet1的componentcount为0
如果form1.componentcount肯定不为0

[zsy_good]

showmessage(inttostr( TabSheet1.ControlCount));

[foreveryday007]

Sender.ControlCount;//Sender: TWinControl

[forgot]

i,j:integer;
j:=0;
for i:=0 to ComponentCount-1 do
begin
if TControl(Components[i]).Parent is TabSheet1 then
j:=j+1;
end;

[zsy_good]

所有从 TWinControl控件继承来的控件都有这个属性

[lws0472]

TabSheet1.ControlCount

[ihihonline]

for I := 0 to TabSheet1.ControlCount -1 /////不是ComponentCount
==================================================
招聘斑竹

如果您觉的您对Delphi感兴趣或是很想学的更好些或者是对Delphi有更深的认识，我们可以一起交流；
呵呵
www.nxrs.net/bbs
谢谢，别抛砖
论坛正在升级中，有时可能会出现连接错误，请见凉

[dupenf]

tabsheet1.componentcount,应该可以的阿

[macro_love]

控件非组件，componentcount当然不行呀
for i:=0 to ComponentCount-1 do 这样会把上面的非控件记上去

[brallow]

来迟了。

[xiatianyun]

借光，ComponentCount和ControlCount有什么不同？组件和控件有什么不一样的地方？

[oldearth]

for I :=0 to TabSheet1.ControlCount-1 do
begin
if TabSheet1.Components[I] is TEdit then
begin
TEdit(TabSheet1.Components[I]).Clear;
end;
end;

错误信息：list index out of bounds