我有一个从TBaseFrame = class（TFrame）继承的TFrame
在这个框架中嵌入了一个具有相同继承性的TFrame

TViewStandardMovimentoFinanceiro = class(TFrameBase)
    ViewStandardEdiMovimentoFinanceiro1: TViewStandardEdiMovimentoFinanceiro;

  TViewStandardEdiMovimentoFinanceiro = class(TFrameBase)

  TFrameBase = class(TFrame, INaharView, INaharViewAdapter)

创建TViewStandardMovimentoFinanceiro时将父项设置为主窗体（特别是设置为THorzScrollBox）
从TViewStandardMovimentoFinanceiro框架内部，我尝试了使用Children列表的经典方法，但没有发现嵌入的TFrame。
我也试过使用父母的孩子名单没有成功。组件列表也是如此
我想做的是找到所有可用的TFrame，这样我就可以请求一个接口（我知道如何做到这一点）。
我错过了什么？
下面的建议，我已经实现了这个代码进行测试：

function TFrameBase.LocateControl(AControl: TControl; ADomainName: string): TControlHandler;
var
  NaharView: INaharView;
  ControlHandler: TControlHandler;
  i: integer;
begin
  result := nil;
  for i := 0 to AControl.ChildrenCount - 1 do
    if (AControl.Children[i] is TFrame) and (AControl.Children[i] <> Self) then
      if Supports((AControl.Children[i] as TFrame), INaharView, NaharView) then
      begin
        ControlHandler := NaharView.Control[ADomainName];
        if Assigned(ControlHandler) then
          exit(ControlHandler);
      end;
end;

function GetUltimateParent(Control: TControl): TControl;
begin
  if Control.Parent is TControl then
    Result := GetUltimateParent(TControl(Control.Parent))
  else
    Result := Control;
end;

function TFrameBase.GetNaharControl(ADomainName: string): TControlHandler;
var
  i: integer;
  ControlHandler: TControlHandler;
begin
  if NaharControls.ContainsKey(ADomainName) then
    Exit(NaharControls.Items[ADomainName])
  else
  begin
    ControlHandler := LocateControl(GetUltimateParent(Self), ADomainName);
    if Assigned(ControlHandler) then
      exit(ControlHandler);
  end;

  raise EViewControlDomainNameNotFound.Create(ADomainName);
end;

当LocateControl被执行时，它会进入几个级别到顶部，并从那里尝试在Children List上添加新的元素，它在一个充满控件的表单中只包含3个项目。