Delphi 查找嵌入的TFrame

我有一个从TBaseFrame=classTFrame继承的TFrame

在此内部有一个具有相同继承性的嵌入TFrame

  TViewStandardMovimentoFinanceiro = class(TFrameBase)
    ViewStandardEdiMovimentoFinanceiro1: TViewStandardEdiMovimentoFinanceiro;

  TViewStandardEdiMovimentoFinanceiro = class(TFrameBase)

  TFrameBase = class(TFrame, INaharView, INaharViewAdapter)

创建TVIEWSTANDMOVINGOFINCERO时，父项设置为主窗体，特别是THorzScrollBox

在TVIEWSTANDMOVINGOFINCERO框架内，我尝试了使用子列表的经典方法，但没有发现嵌入的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时，它会向上移动几个级别，然后尝试在子列表上迭代，它只包含3项，形式上充满控件。

您的函数LocateControl需要递归，正如Ondrej所述。像这样的

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
  begin
    if (AControl.Children[i] is TFrame) and (AControl.Children[i] <> Self) then
    begin
      if Supports((AControl.Children[i] as TFrame), INaharView, NaharView) then
      begin
        ControlHandler := NaharView.Control[ADomainName];
        if Assigned(ControlHandler) then
        begin
          exit(ControlHandler);
        end;
      end;
    end;
    // recursive bit
    Result := LocateControl(AControl.Children[i], ADomainName):
    if assigned( Result ) then
    begin
      exit;
    end;
  end;
end;

---

可能是代码中的某些内容。在VCL中，TFrame是TWinControl的子代，因此递归迭代最终父窗体中的子级应该可以找到任何实例。在FireMonkey中，TFrame是一个TControl子代，但同样的原理也适用。@OndrejKelle好的，我如何才能得到最终的父代，以便迭代子代？最终，我的父对象不是直接的TForm？尝试一些递归函数，比如GetUltimateParentControl:TControl:TControl；如果Control.Parent是TControl，则开始，然后结果：=GetUltimateParentControlControl.Parent-else结果：=Control；结束@OndrejKelle我已经实现了你的建议，它达到了几个级别，ChildrenCount只有3个对象。看来有些地方出了问题，或者在FMX中有很大的不同。我已经发布了问题的代码。寻找儿童也应该是递归的。舒尔Ondrej值得认可，但既然你发布了最终解决方案作为答案，我已经接受了。成功了。