Piszę właśnie komponent dziedziczący po TToolBar, chodzi mi o to, żeby podczas tworzenia od razu wstawiał przyciski i inne elementy. W konstruktorze jast coś takiego (połowa wyrżnięta, ale wystarczy tworzenie jednego przycisku):
constructor TnnEdRTFToolBar.Create(AOwner: TComponent);
var btnTest: TToolButton;
begin
inherited Create(AOwner);
btnTest:=TToolButton.Create(Self);
btnTest.Parent:=Self;
end;
Błąd wywołuje linia btnTest.Parent:=Self;, ale nie można jej usunąć z powodów oczywistych :). To samo się dzieje, jak wstawiam np. TEdit, nie ważne czy w ten sposób, czy przez InsertControl albo InsertComponent. Zaznaczam też, że ten ToolBar jest przeznaczony TYLKO do dynamicznego tworzenia, więc nie trzeba się zajmować design-time.
PS. W deklaracji constructora jest override.
PS2. W komponencie dziedziczącym z TTabSheet takie samo tworzenie (RichEdit) działa bez problemu.