TPageControl  上的TTabSheet 顯示問題 

請問一下個位要是有在TPageControl 上有 3 個 TTabSheet
在我的form 中有一個 button 剛我按下 button 時 我要怎樣去控制TPageControl 中的TTabSheet
TTabSheet 的 name = page 1 , page2 , page3


謝謝

------
roger

TPageControl 中的ActivePage与ActivePageIndex分别通过TTabSheet的名称与索引号来控制当前要显示哪一个TTabSheet：


[code cpp]
__property TTabSheet* ActivePage = {read=FActivePage, write=SetActivePage};
__property int ActivePageIndex = {read=GetActivePageIndex, write=SetActivePageIndex};

void __fastcall TForm1::FormCreate(TObject *Sender)
{
for (int i = 0; i < PageControl1->PageCount; i )
{
ComboBox1->Items->AddObject(PageControl1->Pages[i]->Name, PageControl1->Pages[i]);
ComboBox1->ItemIndex = 0;
}
}
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
TComboBox *pCB = dynamic_cast(Sender);
if (pCB)
PageControl1->ActivePage = (TTabSheet *)(pCB->Items->Objects[pCB->ItemIndex]);
}

[/code]

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

編輯記錄