Delphi TCollection -有可能防止在运行时更改项目吗？

Question

使用delphi 7，我有一个后代的TCollection/TCollectionItem集。它们仅用于在设计时设置，不应在运行时修改。我该怎么做呢？设计时应该始终允许所需的任何编辑，但在运行时，我不希望能够添加、删除或重新索引集合中的任何项。每个项目的属性，是的，我确实希望启用它们。但是更改实际的项目应该只在设计时进行。

Answer 1

您可以覆盖TCollection的Assign()和Notify()方法，以获得添加和删除的通知，并覆盖TCollectionItem的SetIndex()方法，以获得重新索引的通知。对于添加/删除操作，抛出一个异常来拒绝该操作(对于添加操作，您必须释放已添加的新项)。为了重建索引，只需退出而不执行任何操作。

要区分运行时和设计时，请遍历TCollection的所有者链(如果它嵌套在其他类中)，直到找到TComponent，然后可以检查其ComponentState属性中的csDesigning标志。