64,647
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::FormCreate(TObject *Sender)
{
PageControl1->MultiLine = true;
for (int i = 0; i < 10; i++)
{
TTabSheet *pPage = new TTabSheet(this);
pPage->PageControl = PageControl1;
pPage->TabVisible = (i % 2 == 0);
pPage->Caption = AnsiString("PageIndex: ") + IntToStr(pPage->PageIndex) + AnsiString(" TabIndex: ") + IntToStr(pPage->TabIndex);
}
}