Delphi Designer, Is component inherited?

Question

I'm writing a custom component editor, essentially similar to TActionList editor in that it allows creation of sub components. Editor has buttons to add/delete components.

Now, I'd like to find out if selected component is inherited, so that I can disable the delete button. I haven't found any such member in IDesigner or related interfaces.

If I just go ahead and delete by Designer.DeleteSelection(True); then I get an exception:

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

Which is not too bad, but I'd prefer to disable the delete button in the first place.

Answer 1

Ok, so apparently there is a way, by checking the TComponent.ComponentState for csAncestor, so:

csAncestor in ComponentState

And it's documented:

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