C++ Builder 2009 迭代/递归表单上的组件

【问题标题】：C++ Builder 2009 Iterate/Recurse through Components on a FormC++ Builder 2009 迭代/递归表单上的组件
【发布时间】：2014-01-01 18:08:58
【问题描述】：

我希望遍历/递归表单上的组件。

我计划对组件进行迭代/递归以对特定类型的组件进行批量更改，但为此，我需要处理所有组件。

我检查了 Code Complete 和 Google，但没有任何运气回答我自己的问题。

【问题讨论】：

Is there any way to get all the controls on a container control? 的可能重复项

标签： components c++builder c++builder-2009

【解决方案1】：

使用TWinControl.Controls[] 属性，例如：

Procedure DoSomething(AControl: TWinControl);
Var
  I: Integer;
  Ctrl: TControl;
Begin
  If AControl is TSomeControl then
  Begin
    ...
  End;
  For I := 0 to AControl.ControlCount-1 do
  Begin
    Ctrl := AControl.Controls[I];
    If Ctrl is TWinControl then
      DoSomething(TWinControl(Ctrl));
  End; 
End;

Procedure TMyForm.DoIt;
Begin
  DoSomething(Self);
End;

【讨论】：