Delphi - 视觉表单继承 - 组件基类检测

Question

我正在使用 VFI（视觉表单继承），我需要检查实例化表单的组件是否属于表单类或表单超类。

有什么想法吗？

  unit1

  TFormStatus = class(TForm)
    cpPanel: TPanel;
    lblStatus: TLabel;
  end;

  unit 2

  TFormCodigo = class(TFormStatus)
    lblCodigo: TLabel;
  end;

  frmCodigo: TFormCodigo:

在 frmCodigo 的任何实例中，我想检测 lblCodigo 是 TFormCodigo 的本地组件，并且 cpPanel / lblStatus 是继承的组件；

  for i:=0 to Self.ComponentCount-1 do begin        
      if "InheritedComponent" (Self.Components[i]) then ...
  end;

使用 RTTI 作为对象属性可以实现类似的操作，但我不知道对于组件是否可以。

谢谢。

Answer 1

如果我理解正确的话，您需要 TRttiMember.Parent。例如，请参阅 Rob Love 撰写的这篇文章。我认为您需要 Delphi 2010 或更高版本。

事实上，这只是 优秀文章系列 - 这些文章还将告诉您如何获取字段、属性等，而不必知道它们的名称。

Answer 2

也许像这样“愚蠢”的东西

function TFormStatus.IsStatusComponent(AComponent: TComponent): Boolean;
begin
  Result := (AComponent = cpPanel) or (AComponent = lblStatus);
end;

已经满足了您的需求？

Answer 3

在 TFormCordigo 中，您可以重写每次读取特定表单的资源时调用的 ReadState 方法。继承后，称为 ComponentCount 包含截至层次结构的当前成员创建的组件数量，因此您毕竟拥有可以保存在其他地方的组件边框列表。

下面的代码说明了这种方法

procedure TInhTestForm.Button3Click(Sender: TObject);
var
  i: integer;
begin
  inherited;

  Memo1.Lines.Clear;
  for i:=0 to ComponentCount-1 do
  begin
    Memo1.Lines.Add(format('%s inroduced in %s', [Components[i].Name, ComponentParent(i).ClassName]));
  end;
end;

function TInhTestForm.ComponentParent(Index: integer): TClass;
var
  i, j: integer;
begin
  Result:=Nil;
  for i:=Low(fComponentBorders) to High(fComponentBorders) do
  begin
    if Index <= fComponentBorders[i] - 1 then
    begin
      j:=i;
      Result:=Self.ClassType;
      while j < High(fComponentBorders) do
      begin
        Result:=Result.ClassParent;
        Inc(j);
      end;
      break;
    end;
  end;
end;

procedure TInhTestForm.ReadState(Reader: TReader);
begin
  inherited;
  SetLength(fComponentBorders, Length(fComponentBorders) + 1);
  fComponentBorders[High(fComponentBorders)]:=ComponentCount;
end;