BCB的牛人请进!!!!
下面这几个函数不太懂那位大虾解释解释!特别是
TComponent *component = dynamic_cast<TComponent *>(Sender)
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
Caption = Application->Title;
SetPage(0);
}
///////////////////////////////////////////////////////
void __fastcall TForm1::OBClick(TObject *Sender)
{
TComponent *component = dynamic_cast<TComponent *>(Sender);
if (component == 0) return;
SetPage(component->Tag);
}
///////////////////////////////////////////////////////
void __fastcall TForm1::SetPage(int page)
{
if (page < 0 || page > PageControl1->PageCount - 1) return;
PageControl1->ActivePageIndex = page;
//Panel2->Caption = PageControl1->ActivePage->Caption;
}