很简单的问题：如何得到pagecontrol中的一个Tabsheet中的控件个数ComponentCount

javaxbenz 2004-11-30 11:57:49

谢谢！

...全文

126 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

mixihello 2004-12-21

打赏
举报

panel1.ControlCount panel1.ComponentCount

hellolongbin 2004-12-03

打赏
举报

顺便学习一楼的方法

赖皮鹏 2004-12-03

打赏
举报

Panel中有3个控件；
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:= panel1.ControlCount ;
showmessage(inttostr(i)); // i=3;
i:= panel1.ComponentCount ;
showmessage(inttostr(i)); //i=1;
end;

hellolongbin 2004-12-03

打赏
举报

一个笨方法：遍历所有控件（for i:=0 to self.ComponentCount-1 do)，判断每个控件的Parent.name是不是tabsheet1

赖皮鹏 2004-12-03

打赏
举报

ControlCount <> Componentcount

兵兵 2004-12-03

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=PageControl1.Pages[0].ControlCount;
showmessage(IntToStr(i));
end;

没问题的，我调试过了

javaxbenz 2004-12-03

打赏
举报

aiirii 2004-11-30

打赏
举报

showMessage(IntToStr(PageControl1.Pages[0].ControlCount));

javaxbenz 2004-11-30

打赏
举报

在调试这样一句时PageControl1.Pages[2].ComponentCount- 1：出现这样的debug提示：
PageControl1.Pages[2].ComponentCount ＝Variable 'Self' inaccessible here due to optimization，请问这个该如何解决呢？