FMX: Beliebig viele TCube dynamisch zur Laufzeit erstellen?

[MaxMu]

Hallo. Ich möchte zur Laufzeit über einen TButton eine beliebige Anzahl an TCube zu TDummy hinzufügen und über einen zweiten TButton die TCube löschen und neu hinzufügen.

Ich habe dazu ein TViewPort3D in das Formular gelegt und ein TDummy. Mein erster Schritt war erstmal im Quelltext im Button1Click diese Zeile hinzuzufügen:

TCube *Cube = new TCube(Dummy1);

Ich hätte jetzt erwartet einen Cube zu sehen, aber nichts passiert. Mach ich hier was grundlegendes falsch?

[MaxMu]

Man muss wohl neben Parent auch wohl unbedingt SetSize() angeben. Dachte das hätte einen sichtbaren Standardwert. Dem war wohl nicht so.

TCube *Cube = new TCube(Dummy1);
    Cube->Parent = Dummy1;
	Cube->SetSize(1,1,1);

Das löschen habe ich jetzt so realisiert:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    for (int i=0;i<Dummy1->ComponentCount;i++)
    {
        Dummy1->Components[i]->Free();
    }
    Dummy1->Repaint();
}

Damit hat sich meine Frage wohl erledigt. Es sei jemand hat hierzu noch eine Anmerkung.