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.