TControl (child) 到 TObject 并通过 RTTI 或 SetXXXXXXProperty 设置它的 Parent 属性

Question

目前在delphi中做一些RTTI的研究。

出现的问题如下。

对于这个例子，我有一个 TPanel 组件（由代码创建，所有者由调用方法传递）现在 TPanel 被强制转换为 TObject（以保持我使用的方法通用）。

现在我尝试通过 SetXXXXXXProp 函数设置该属性（XXXXXX 是以下任何一种（ord、variant、str、method...。基本上我尝试了所有 SetProperty 函数。）

但出于某种奇怪的原因，我收到的消息是没有 Parent 属性。 如何设置我的 Parent 属性？？

所以我希望你们中的任何人都可以给我一个正确方向的“指针”。

class procedure TComponentsCreator.AddParent(obj, parent : TObject);
var
  count : integer;
  propList: PPropList;
  I: Integer;

  method : TMethod;
begin

  count := GetPropList(obj, propList);

  for I := 0 to count -1 do
    begin

      WriteLn(propList[i]^.Name);

      if (CompareStr(LowerCase(String(propList[i]^.Name)), LowerCase('Parent')) = 0) then
        begin
          SetObjectProp(obj, String(propList[i]^.Name), parent);
        end;
    end;
end;    

Answer 1

您正在使用为 .dfm 流媒体机制设计的旧式 RTTI。当您调用GetPropList 时，返回的列表包含已发布的属性。您正在寻找已公开但未发布的Parent。

您可以使用新样式的 RTTI 来实现这一点，但这似乎是不必要的。当您希望操作的成员或类型在编译时未知时，需要 RTTI。但是，您确实认识该成员。它是TControl.Parent。所以你可以写

(obj as TControl).Parent := parent;

如果由于某种原因，您不得不使用 RTTI，那么我能找到的最简单的代码编写方法是：

procedure SetControlParent(obj, parent: TObject);
var
  ctx: TRttiContext;
  typ: TRttiType;
  prop: TRttiProperty;
begin
  typ := ctx.GetType(obj.ClassType);
  prop := typ.GetProperty('Parent');
  prop.SetValue(obj, parent);
end;

我在这里省略了任何错误检查，但我希望您不会在实际代码中做同样的事情。

---

除了未成年人，您对CompareStr 的调用是不必要的复杂。如果您希望使用不区分大小写的比较，请使用CompareText。如果您想比较是否相等，请使用SameText。您可以像这样更清楚、更简单地替换该代码：

if SameText(propList[I]^.Name, 'Parent') then