[Borland C++] własny kompononent TShape z napisem

0

Potrzebny mi jest okrągły komponent z napisem (coś jak Caption na np. Panelu). Nigdy wcześniej nie pisałem własnych komponentów, ale spróbowałem. Mój komponent dziedziczy po TShape, w klasie w sekcji public mam pole

 TLabel *Label;

W pliku cpp w konstruktorze klasy:

__fastcall TExtShape::TExtShape(TComponent* Owner)
        : TShape(Owner)
{
        this->Shape=stCircle;
        Label = new TLabel(this);
        Label->Caption="text";
        Label->Left=200;
        Label->Top=200;
}

Na przykładowej formie mam przycisk, który ma mi utworzyc obiekt mojej klasy TExtShape:

void __fastcall TForm1::Button3Click(TObject *Sender)
{
 Kolo = new TExtShape(this);
 Kolo->Parent=this;
 Kolo->Left= 100;
 Kolo->Top=100;
 Kolo->Height=50;
 Kolo->Width=50;
}

I w tym miejscu mam problem, ponieważ kółko się pokazuje, a napis nie :(
Proszę o pomoc.

0

hm, tak na oko, to przydałoby się przypisać jeszcze parenta:
Label->Parent = this

pokazać tego labela
Label->Visible = true

i chyba będzie lepiej

ps wiem wiem, że Owner jest rzekomo podawany już konstruktorze - jakoś nie zmieniało to faktu, że zawsze parenta musiałem przypisywać w czasach, kiedy pisałem w Builderze.

1 użytkowników online, w tym zalogowanych: 0, gości: 1