Delphi 2009 - 对象检查器中的自定义枚举类型属性

Question

我创建了一个自定义 TAction 类型，它有 2 个额外的属性，分别是字符串类型和枚举类型。

字符串值在对象检查器中显示正常，但是枚举类型根本没有出现。如何让自定义枚举类型显示为对象检查器中的下拉属性值？

Answer 1

枚举属性应该使用默认的 TEnumProperty 类来编辑属性。

好像找不到RTTI信息。枚举类型在哪里定义？在与组件相同的文件中？

您是否使用带有自定义值的枚举类型，例如:

TMyEnum = (aA = 1, aB = 3);

说明:如果您定义一个带有值的枚举，您将创建一个带有预定义常量的子范围类型。所以上面的解释为:

type
  TMyEnum = 1..3;
const
  aA : TMyEnum = 1;
  aB : TMyEnum = 3;

这会导致奇怪的情况，例如:Succ(aA) 不是 aB，而是 2。该信息在帮助(语言指南)简单类型 [具有显式分配序数的枚举类型] 中。

这可能是问题的根源。

如果一切都失败了，您可以创建自己的属性编辑器。它能够在对象检查器中更改枚举属性。通常您将能够使用默认的 TEnumProperty。但如果这还不够，您可以自己动手:

第一步，派生一个属性编辑器。在您的情况下，TEnumProperty(单位 DesignEditors)可能就足够了，只需稍作改动。

第 2 步，确保 GetValue 和 SetValue 方法正常工作。他们需要将字符串转换为枚举属性并返回。

第 3 步，如果您想要真正的特殊编辑，请确保覆盖编辑方法。

第 4 步，确保编辑器属性有效。

第五步，使用RegisterPropertyEditor注册属性编辑器。

只需查看组件编写者指南即可获得更多信息。