查找嵌入式 TFrame

Question

我有一个继承自 TBaseFrame 的 TFrame = class(TFrame)

里面有一个具有相同继承关系的嵌入式 TFrame

  TViewStandardMovimentoFinanceiro = class(TFrameBase)
    ViewStandardEdiMovimentoFinanceiro1: TViewStandardEdiMovimentoFinanceiro;

  TViewStandardEdiMovimentoFinanceiro = class(TFrameBase)

  TFrameBase = class(TFrame, INaharView, INaharViewAdapter)

创建 TViewStandardMovimentoFinanceiro 时父级设置为主窗体（特别是 THorzScrollBox）

在 TViewStandardMovimentoFinanceiro 框架内，我尝试了 class使用子列表的正常方法，但没有找到嵌入的 TFrame。

我也尝试过使用父子列表，但没有成功。与组件列表相同

我想做的是找到所有可用的 TFrames，这样我就可以请求一个接口（我知道该怎么做）

我错过了什么？

根据以下建议，我已经实施了此代码进行测试：

    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 个项目，在一个充满控件的表单中。

Answer 1

您的函数 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;

查找嵌入式 TFrame

Finding an embedded TFrame

delphi

firemonkey

delphi-10.1-berlin