Creating a component with named sub-components?

This Thread helped me creating something as we discussed yesterday. I took the package posted there and modified it a bit. Here is the source: TestComponents.pas unit TestComponents; interface uses Classes; type TParentComponent = class; TChildComponent = class(TComponent) private FParent: TParentComponent; procedure SetParent(const Value: TParentComponent); protected procedure SetParentComponent(AParent: TComponent); override; public destructor Destroy; override; function … Read more