如何在运行时注册组件和属性编辑器？

Question

经过多次搜索，看起来我必须分配 RegisterComponentsProc 和 RegisterPropertyEditorProc，我已经完成了。

但是，我认为我可以调用我的设计时 Register 函数，即 .Register();。

当我这样做时，我会遇到堆栈溢出，因为，好吧......

procedure myComponentUnit.Regiter;
begin
  RegisterPropertyEditor(TypeInfo(Integer), 
                         TMyComponent, 'myProperty',   TMyProperty);

结束；

procedure RegisterPropertyEditor(PropertyType: PTypeInfo;
  ComponentClass: TClass; const PropertyName: string;
  EditorClass: TPropertyEditorClass);
begin
  if Assigned(RegisterPropertyEditorProc) then
    RegisterPropertyEditorProc(PropertyType, ComponentClass, PropertyName,
      EditorClass);
end;

所以，我调用 .Register();
它调用 RegisterPropertyEditor()
调用 RegisterPropertyEditorProc()
它调用 RegisterPropertyEditor() <=== aaargh!!

那么，我的 RegisterPropertyEditorProc 正文中应该有什么？

经过进一步搜索，看起来我想直接调用DesignEditors.RegisterPropertyEditor()，但它不在界面部分...

Answer 1

尝试在运行时注册属性编辑器是没有意义的，因为它一开始在运行时不可用。它只能在设计时在 IDE 中使用。

Answer 2

Delphi 不包含 DesignEditors 单元的源代码；它的实现仅在 DesignIDE 包中提供。该包可以访问 IDE 内部结构，例如注册的属性编辑器列表。 IDE 将值分配给 RegisterComponentsProc 和 RegisterPropertyEditorProc 回调函数。正如您所注意到的，RegisterPropertyEditor 调用 RegisterPropertyEditorProc。 IDE 提供了自己的函数来处理该事件。

如果你想在运行时注册一个属性编辑器，那么你的程序就扮演了IDE的角色。您需要提供这些回调函数的实现，以便使用您自己的属性编辑框架注册属性编辑器类。您可能可以将所有内容都放在一个简单的列表中。然后，当您想知道为某种类型的属性显示哪种编辑器时，请查阅列表以找到最佳匹配。

你是对的，你应该调用你单位的注册程序。但这是您启动注册过程的方式，而不是实现注册过程的方式。这部分取决于你； Delphi 不为您提供任何这些。