Question

delphi 如何获得一个窗体中有多少控件

比如我想知道一个窗体中有多少个button

Answer 1

ControlCount可以获得当前控件(可能是Form、Panel, GroupBox）下直接包含的可视化控件总数，通过Controls[i]可以依次访问第i个控件。通过Controls[i] is TButton可以判断控件是不是按钮。

与Controls对应的还有一个ComponentCount和Components。这个是当前窗口下所有控件，不管可见还是不可见，也不分直接包含还是通过Panel，GroupBox等间接包含的控件。

深入解析。
button := TButton.Create(Self); //这里Self.Components中就包含了button，
button.Parent := Self; //这里Self.Controls就包含了button

对你这个问题，想要知道有多少个Button的代码如下：
var
I: Integer;
Count: Integer;
begin
Count := 0;
for I := 0 to ControlCount - 1 do
begin
if Controls[I] is TCustomButton then
Inc(Count);
end;
ShowMessage('所有从TCustomButton继承的控件且直接放在Form上的控件总数为:' + IntToStr(Count));

Count := 0;
for I := 0 to ComponentCount - 1 do
begin
if Components[I] is TCustomButton then
Inc(Count);
end;
ShowMessage('所有从TCustomButton继承的控件总数为:' + IntToStr(Count));
end;

Answer 2

var i,qty : Integer;
for i = 0 to Form1.ComponentCount-1
begin
if (Form1.components[i].ClassName = TButton) then
qty := qty + 1 ;
end
showmessage("Button控件数量："+inttoStr(qty));

Answer 3

ShowMessage(IntToStr(ComponentCount));

Answer 4

不可见控件不用转换