统计控件数目？

Question

请问如何统计一个窗体上的控件个数呢？
谢谢！！！

Answer 1

谢谢！那如何统计某一类的控件数目呢？比如：一组checkbox控件的数目

Answer 2

以前的一段代码，处理窗体中的所有Panel
 for i := 0 to (Self.ControlCount - 1) do
   begin
      if (Self.Controls[i].ClassName='TPanel') and (TPanel(Self.Controls[i]).Visible=true) then
      begin
       ... ... 
      end;
   end;

Answer 3

yangfan369(扬帆远行)的代码里再加个计数器  
var
ContorlCount:integer;
.
.
contorlcount:=0;
for i := 0 to (Self.ControlCount - 1) do
   begin
      if (Self.Controls[i].ClassName='TPanel') and (TPanel(Self.Controls[i]).Visible=true) then
      begin
         inc(contorlcount);
      end;
   end;

Answer 4

      if (Self.Controls[n].ClassName='TCheckbox') and (tcheckbox(Self.Controls[n]).Checked =true) then
      begin
       m:=m+1 ;
      end;
这一句：
if (Self.Controls[n].ClassName='TCheckbox') and (tcheckbox(Self.Controls[n]).Checked =true) then
为什么总是假？下面的语句：
      begin
       m:=m+1 ;
      end;
总是无法执行到呢？！：（

Answer 5

简化一下条件，试试看。不幸再试试
form1.ComponentCount