//窗体启动后,ComboBox加载PageControl的页面
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
const TColor colorPalette[12] = {
clRed, clGreen, clYellow, clBlue, clWhite, clFuchsia,
clTeal, clNavy, clMaroon, clLime, clOlive, clPurple};
for (int i = 0; i < PageControl1->PageCount; i++) { //PageCount计数PageControl的分页面
PageControl1->Pages[i]->Brush->Color = colorPalette[i];
ComboBox1->Items->AddObject(PageControl1->Pages[i]->Name, PageControl1->Pages[i]); //加载在ComboBox组件
}
ComboBox1->ItemIndex = 0;
PageControl1->ActivePage = dynamic_cast<TTabSheet *>(ComboBox1->Items->Objects[ComboBox1->ItemIndex]);//动态加载ActivePage
}
//联动显示
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
TComboBox *pCB = dynamic_cast<TComboBox *>(Sender);
if (pCB) {
PageControl1->ActivePage = dynamic_cast<TTabSheet *>(pCB->Items->Objects[pCB->ItemIndex]);//ComboBox选择对应ActivePage
}
}
ComboBox鱼PageControl的活动页面联动
最新推荐文章于 2024-05-20 15:29:54 发布