Subelemente auf TShape zeichnen

[lowmax_5]

Ich stehe gerade auf dem Schlauch...
Wie lässt sich auf einem TShape mit dem Erzeugen einer neuen Klasse auf TShape zeichnen?
Herauskommen soll ein TShape, welches beim erzeugen automatisch drei Subelemente innerhalb des TShapes zeichnet.

TShape.Create==> Übergabe des Parent?
TSubElement1.Create (zeichnen auf Parent?)
TSubElement2.Create
TSubElement3.Create

Wie lässt sich so etwas umsetzen? Wie kommt man von den Subelementen an den canvas von tShape?

[himitsu]

Garnicht?

TShape, hat wie TBitmap und TLabel kein eigenes Canvas.
Die malen sich auf dem Canvas ihres Parents und sie können nicht ineinander verschachtelt werden. Sie können nur auf dem selben Parent liegen und sich gegeneitig übermalen. (nacheinander auf den selben Canvas drauf)

Nimm eine TPaintBox und male da im OnPaint alle deine Elemente.