我有一个属性编辑器（TPropertyEditor的后代），用于编辑属性。
当需要编辑属性时，我如何知道我正在编辑的是什么对象的什么属性？如果我要编辑一个属性，我必须知道我正在编辑的是什么属性。
我一直在绞尽脑汁，在 Delphi 帮助、在线帮助、TPropertyEditor和后代源代码中筛选，但我找不到答案。
我期待着这样的东西：

TPropertyEditor = class(...)
public
    procedure Initialize(TheObject: TObject; ThePropertyName: string);
end;

字符串
据我所知，我的属性编辑器被创建，我将被告知“编辑”，我只需要猜测他们想让我编辑什么属性。
从帮助：

编辑整个属性

您可以选择提供一个对话框，用户可以在其中直观地编辑属性。属性编辑器最常见的用途是用于本身就是类的属性。例如，Font 属性，用户可以打开一个字体对话框，一次选择字体的所有属性。
若要提供完整属性编辑器对话框，请重写属性编辑器类的 Edit 方法。

• Edit* 方法使用与编写 GetValue 和 SetValue 方法相同的Get和Set方法。事实上，Edit 方法调用Get方法和Set方法。由于编辑器是特定于类型的，因此通常不需要将属性值转换为字符串。编辑器通常处理“检索到的”值。

当用户单击属性旁边的“...”按钮或双击值列时，对象检查器将调用属性编辑器的 Edit 方法。
在 Edit 方法的实现中，请执行以下步骤：
1.构造用于属性的编辑器。
1.读取当前值并使用Get方法将其赋给属性。
1.当用户选择新值时，使用Set方法将该值赋给属性。
1.毁了编辑。

回复

它被隐藏起来，没有记录，但我发现了如何。我编辑的属性：

TheCurrentValue := TMyPropertyThing(Pointer(GetOrdValue));

型
现在我有了值，我可以编辑它。如果我想用其他对象替换属性：

SetOrdValue(Longint(TheNewValue));

型

完整代码：

创建一个继承自TClassProperty的属性编辑器：

TMyPropertyEditor = class(TClassProperty)
public
   procedure Edit; override;
   function GetAttributes: TPropertyAttributes; override;
end;

型
首先是内务处理，告诉 Delphi 的对象检查器，我的属性编辑器将显示一个对话框，这将使一个“.”出现在属性旁边：

function TMyPropertyEditor.GetAttributes: TPropertyAttributes;
begin
   //We show a dialog, make Object Inspector show "..."
   Result := [paDialog];
end;

型
接下来是实际工作。当用户点击“...”按钮时，对象检查器调用我的Edit方法。我错过的技巧是我调用我的GetOrdValue方法。即使我的属性不是 ordinal，你仍然使用它，只是将结果转换为对象：

procedure TMyPropertyEditor.Edit;
var
   OldThing: TMyPersistentThing;
   NewThing: TMyPersistentThing;
begin
   //Call the property's getter, and return the "object" i'm editing:
   OldThing:= TMyPersistentThing(Pointer(GetOrdValue));

   //now that i have the thing i'm editing, do stuff to "edit" it
   DoSomeEditing(OldThing);

   //i don't have to, but if i want to replace the property with a new object
   //i can call the setter:
   NewThing := SomeVariant(OldThing);
   SetOrdValue(Longint(NewThing));
end;

型