Delphi设计时只读TCollection：自定义编辑器失效问题排查

我很清楚你在Delphi XE5里遇到的这个自定义集合编辑器的问题——我之前也碰到过类似的情况，其实你的思路方向是对的，但可能在细节上没踩对点，而且这种需求完全是合理的实践场景，比如固定项集合、组件内部管控的集合都需要这种设计时只读的限制。

首先明确：设计时限制TCollection的增删移动是完全合理的实践，你的需求完全没问题。接下来一步步排查你可能踩的坑：

1. 先确认自定义编辑器是否被正确注册 #

这是最容易忽略的点——如果你的自定义TCollectionProperty没有被IDE正确加载，那不管你怎么重写方法，原生编辑器都会接管。

检查你的注册代码：

• 必须引用DesignIntf和DesignEditors单元；
• 注册代码要放在initialization块里；
• 要精准匹配集合类型和目标属性/组件。

比如正确的注册示例：

uses
  DesignIntf, DesignEditors;

type
  TMyReadOnlyCollectionProperty = class(TCollectionProperty)
    // 你的重写方法
  end;

initialization
  // 针对所有组件的TMyCollection类型属性注册编辑器
  RegisterPropertyEditor(TypeInfo(TMyCollection), nil, '', TMyReadOnlyCollectionProperty);
  // 如果是特定组件的特定属性，比如TMyComponent的MyItems属性：
  // RegisterPropertyEditor(TypeInfo(TMyCollection), TMyComponent, 'MyItems', TMyReadOnlyCollectionProperty);

另外，要确保你的包已经正确安装到IDE，并且没有加载失败（可以在IDE的“组件”->“安装包”里检查）。

2. 关于GetColOptions不生效的原因 #

重写GetColOptions是官方推荐的方式，但你可能没正确移除对应的选项，或者XE5的原生编辑器对这个属性的判断有细节要求。

正确的重写方式应该是移除coAdd、coDelete、coMove这三个选项，只保留允许的操作（比如coEdit，如果允许编辑现有项的话）：

function TMyReadOnlyCollectionProperty.GetColOptions: TColOptions;
begin
  // 继承默认选项后移除增删移动权限
  Result := inherited GetColOptions - [coAdd, coDelete, coMove];
  // 如果连现有项都不允许编辑，就直接返回[]或者[coReadOnly]
  // Result := [coReadOnly];
end;

如果这样还是不生效，那可能是XE5的原生TCollectionEditor没有严格遵循ColOptions的设置——这时候就需要完全自定义集合编辑器来拦截操作。

3. 重写Edit方法，自定义集合编辑器 #

原生的Edit方法会创建默认的TCollectionEditor，如果你想彻底管控操作，最好自己继承TCollectionEditor，重写它的权限判断方法，然后在属性编辑器的Edit里实例化这个自定义编辑器。

步骤1：创建自定义集合编辑器 #

type
  TMyReadOnlyCollectionEditor = class(TCollectionEditor)
  protected
    // 重写这三个方法来禁止增删移动
    function CanAdd: Boolean; override;
    function CanDelete: Boolean; override;
    function CanMove: Boolean; override;
  end;

function TMyReadOnlyCollectionEditor.CanAdd: Boolean;
begin
  Result := False; // 禁止添加新项
end;

function TMyReadOnlyCollectionEditor.CanDelete: Boolean;
begin
  Result := False; // 禁止删除项
end;

function TMyReadOnlyCollectionEditor.CanMove: Boolean;
begin
  Result := False; // 禁止移动项
end;

步骤2：在属性编辑器里调用自定义编辑器 #

procedure TMyReadOnlyCollectionProperty.Edit;
var
  CustomEditor: TMyReadOnlyCollectionEditor;
begin
  CustomEditor := TMyReadOnlyCollectionEditor.Create(nil);
  try
    CustomEditor.Collection := GetCollection;
    CustomEditor.Component := GetComponent(0); // 获取关联的组件实例
    CustomEditor.Execute; // 弹出自定义编辑器窗口
  finally
    CustomEditor.Free;
  end;
end;

这种方式会完全替换原生编辑器，所有操作权限都由你自定义的编辑器来控制，肯定能生效。

4. 额外注意点 #

• 如果你的集合属性本身是运行时只读的（比如属性声明为readonly，或者Set方法是空实现），但设计时还是允许操作，那上面的方法依然适用；
• 如果你只是想禁止增删，但允许编辑现有项，那在自定义编辑器里只需要重写CanAdd和CanDelete，保留CanMove或者根据需求调整；
• 测试时记得重启IDE，有时候包的更新需要重启才能生效。

内容的提问来源于stack exchange，提问作者AnselmoMS