Delphi Designer，组件是否继承？

Question

我正在编写一个自定义组件编辑器，本质上与 TActionList 编辑器类似，因为它允许创建子组件。编辑器具有用于添加/删除组件的按钮。

现在，我想查明所选组件是否被继承，以便我可以禁用删除按钮。我在 IDesigner 或相关接口(interface)中没有找到任何此类成员。

如果我继续通过 Designer.DeleteSelection(True); 删除，那么我会得到一个异常:

Selection contains a component, xxx, introduced in an ancestor and cannot be deleted.

这还不错，但我更愿意首先禁用删除按钮。

Answer 1

好吧，显然有一种方法，通过检查 TComponent.ComponentState 中的 csAncestor，所以:

csAncestor in ComponentState

它是 documented :

csAncestor - The component was introduced in an ancestor form. Only set if csDesigning is also set.