Динамически создать TabSheet с компонентами на нем

Доброго времени суток, с TabSheet проблем нет, а вот с компонентами на нем проблема,
void __fastcall TForm1::FormShow(TObject *Sender)
{
TPanel *crl=new TPanel(this);
 TTabSheet *crl1=new TTabSheet(this);
 crl1->Parent=this;
 crl1->PageControl=PageControl1;
 crl1->Caption="Открытка!";
 crl->Parent=crl1;
 crl1->Align=taCenter;
 crl->Left=8;
 crl->Top=8;
 crl->Height=160;
 crl->Width=310;
 crl->Alignment=taCenter;
 crl1->BorderWidth=10;
 
 TPanel *crl2=new TPanel(this);
 TTabSheet *crl3=new TTabSheet(this);
 crl3->Parent=this;
 crl3->PageControl=PageControl1;
 crl3->Caption="Открытка!";
 crl2->Parent=crl3;
 crl3->Align=taCenter;
 crl2->Left=8;
 crl2->Top=8;
 crl2->Height=160;
 crl2->Width=310;
 crl2->Alignment=taCenter;
 crl3->BorderWidth=10;
}
Добавляется 2 TabSheet как и задумано, а вот Panel создается только на первом TabSheet, на втором ничего не отображается, не подскажете в чем ошибка?
3 ответа

Создаю на пустом PageControl две вкладки. На каждой вкладке создаю по одной панели с разными надписями:
void __fastcall TForm1::FormShow(TObject *Sender)
{
 TTabSheet *crl1=new TTabSheet(this);
 crl1->PageControl=PageControl1;
 crl1->Caption="Открытка!";
 
 TPanel *p = new TPanel(crl1);
 p->Parent = crl1;
 p->Caption = _T("Первая вкладка");
 
 TTabSheet *crl2=new TTabSheet(this);
 crl2->PageControl=PageControl1;
 crl2->Caption="Открытка!";
 
 TPanel *p2 = new TPanel(crl2);
 p2->Parent = crl2;
 p2->Caption = _T("Вторая вкладка");
}


Спасибо, А если мне нужны панели без надписей?? для группировки других компонентов


Значит, назначить Caption-у панели пустую строку.