Delphi获取表单组件属性的值

Question

我正在实现一个样板功能 - 允许用户在运行时更改某些组件的描述 - 例如 TLabel。 例如

TFooClass = Class ( TBaseClass)
 Label : Tlabel;
 ...
 End;

 Var FooClass : TFooClass;

...

在设计时，Label 的标题属性的值是 - 'First Name'，当 应用程序运行时，有一个功能允许用户更改标题 值说“其他名称”。更改后，标签的标题 FooClass 的类实例立即更新。

现在的问题是，如果用户出于某种原因想要恢复到设计 说“名字”的时间价值，似乎是不可能的。

我可以使用 RTTIContext 方法以及所有这些，但最终我似乎 要求我更改该类的实例的值，因为这样 已经被改变了——我似乎已经碰壁了。

我的问题是 - 有没有办法使用旧的 RTTI 方法或新的 RTTIContext 在不实例化类的情况下将其填充到类成员的属性中 - 即得到 ClassType 定义中的属性。

这是我尝试这样做的代码片段：

  c : TRttiContext;
   z : TRttiInstanceType;
   w : TRttiProperty;
 Aform : Tform;
  ....
 Begin
 .....

   Aform := Tform(FooClass);

   for vCount := 0 to AForm.ComponentCount-1 do begin
    vDummyComponent := AForm.Components[vCount];
    if IsPublishedProp(vDummyComponent,'Caption') then begin
      c := TRttiContext.Create;
       try
         z := (c.GetType(vDummyComponent.ClassInfo) as TRttiInstanceType);
         w := z.GetProperty('Caption');
          if w <> nil  then
             Values[vOffset, 1] := w.GetValue(vDummyComponent.ClassType).AsString
        .....
        .....

....
....

我遇到了各种各样的错误，任何帮助将不胜感激。

Answer 1

RTTI 系统无法提供您所追求的内容。类型信息当前仅在编译时确定。初始表单值是在运行时使用 DFM 资源设置的。您可以更改已编译应用程序中 DFM 资源中的值，因为它是在运行时评估的。

解析并使用存储 DFM 资源的位置，或在运行时复制原始值。可能在初始更改时以减少内存占用。

梅森建议使用 TDictionary 是我会使用的。我会小心地将这些信息存储在数据库中，因为保持同步可能会成为真正的维护噩梦。

Answer 2

听起来您想要做的是获取 DFM 中定义的某个属性的值。这不能使用 RTTI 来完成，因为 RTTI 基于检查对象的结构，如其类定义所指定的那样。DFM 不是类定义的一部分；它是类定义的一部分。它是一个属性列表，在从类定义创建对象后应用于对象。

如果您想获取表单控件的属性值，您可能必须将它们缓存在某个地方。尝试在表单的 OnCreate 中放入一些内容，该内容会遍历所有控件，并使用 RTTI 用所有属性的值填充 TDictionary。然后您可以在以后需要时查找它们。

Answer 3

如果您试图实现恢复设计时设置的值（即保存在 DFM 中的值），我会使用 InitInheritedComponent 作为起点。

可以在运行时获取DFM的内容。不过解析起来可能会很痛苦。

另请检查InternalReadComponentRes。

这两个例程都可以在课程单元中找到。

Answer 4

好吧 - 我解决了这个问题。诀窍基本上是实例化表单的另一个实例，如下所示：

 procedure ShowBoilerPlate(AForm : TForm; ASaveAllowed : Boolean);
 var
    vCount           : Integer;
    vDesignTimeForm  : TForm;
    vDesignTimeComp  : TComponent;
    vDesignTimeValue : String;
    vCurrentValue    : String;
 begin
   ....
   ....
   vDesignTimeForm :=  TFormClass(FindClass(AForm.ClassName)).Create(AForm.Owner);

   try
     // Now I have two instances of the form - I also need to have at least one
     // overloaded constructor defined for the base class of the forms that will allow for 
     // boilerplating. If you call the default Constructor - no boilerplating
     // is done. If you call the overloaded constructor, then, boilerplating is done.
     // Bottom line, I can have two instances AForm - with boilerplated values and
     // vDesignForm without boilerplated values.
     for vCount := 0 to AForm.ComponentCount-1 do begin
       vDummyComponent := AForm.Components[vCount];
       if Supports (vDummyComponent,IdoGUIMetaData,iGetGUICaption)  then begin
          RecordCount := RecordCount + 1;
          Values[vOffset, 0] := vDummyComponent.Name;
          if IsPublishedProp(vDummyComponent,'Caption') then begin
           vDesignTimeComp := vDesignTimeForm.FindComponent(vDummyComponent.Name);
           if vDesignTimeComp <> nil then begin
             // get Design time values here
              vDesignTimeValue := GetPropValue(vDesignTimeComp,'Caption');
           end;
           // get current boilerplated value here
              vCurrentValue  := GetPropValue(vDummyComponent,'Caption');
         end;
        vOffset := RecordCount;;
       end;
     end;

  finally
    FreeAndNil(vDesignTimeForm);
  end;
end;

无论如何 - 谢谢大家的建议。