为何Layout1.FindComponent('Button1')返回nil？FindComponent是否递归？

我动态创建了Layout1，结构如下：

object Layout1: TLayout
  Align = Client
  object Rect1: TRectangle
    Align = Client    
    object Button1: TButton
      Text = 'Test'
    end
  end

当我调用Layout1.FindComponent('Button1')时返回nil（大小写完全匹配），我原本以为FindComponent是递归查找的。之后尝试：

if Layout1.FindComponent('Rect1') <> nil then;  // 能找到Rect1

这能成功找到Rect1，但必须先执行Rect := Layout1.FindComponent('Rect1')，再调用：

if Rect.FindComponent('Button1') <> nil then  // 此时才能找到Button1

才能成功找到Button1。想请教：为何FindComponent的递归表现不符合预期？是否仅特定组件的FindComponent支持递归？

VCL/FMX的FindComponent方法默认是完全非递归的，它的设计逻辑仅会查找当前组件直接拥有的子组件，不会深入嵌套的子组件层级。

核心原因 #

FindComponent本质是遍历当前组件的Components属性集合，而这个集合只包含直接隶属于该组件的子组件——比如Rect1是Layout1的直接子组件，所以在Layout1的Components里能找到；但Button1是Rect1的直接子组件，不在Layout1的Components集合中，因此Layout1的FindComponent无法定位到它。

关于递归查找的说明 #

• 所有组件的FindComponent行为都是统一的，不存在“特定组件支持递归”的情况，标准方法本身没有递归查找能力。
• 如果需要递归查找嵌套子组件，需要自行实现递归逻辑，比如下面的示例函数：

function FindComponentRecursive(AOwner: TComponent; const AName: string): TComponent;
var
  i: Integer;
begin
  // 先查找当前组件的直接子组件
  Result := AOwner.FindComponent(AName);
  if Result <> nil then Exit;
  // 递归遍历所有直接子组件的子组件
  for i := 0 to AOwner.ComponentCount - 1 do
  begin
    Result := FindComponentRecursive(AOwner.Components[i], AName);
    if Result <> nil then Exit;
  end;
end;

使用时直接调用FindComponentRecursive(Layout1, 'Button1')，即可递归找到目标组件。

内容的提问来源于stack exchange，提问作者Peter Jones