BCB的牛人请进！！！！

[seaman117]

下面这几个函数不太懂那位大虾解释解释！特别是
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;
}

[bluecyclone]

帮你顶！

[domustdo]

tag没有特定的含义，可以根据需要设定其值。

[pp616]

dynamic_cast<Class *>
是比较安装的转换。
如果确定没问题。没必要用
直接TComponent *component = (TComponent *)Sender;
就好了。

[myredsun]

dynamic_cast表明动态类型转换

[windlyzhang]

dynamic_cast<class T >(),
是用于有继承关系的变量的转换，
当转化成功，返回指向转换后的对象指针，
转换不成功，返回0。

[woainihaha]

//新建一个组件指针,并将Sender强制转换后赋值给新的组件指针.
TComponent *component = dynamic_cast<TComponent *>(Sender)


TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
//将当前窗体的标题设置为程序标题
Caption = Application->Title;
//切换到0页
SetPage(0);
}
///////////////////////////////////////////////////////
void __fastcall TForm1::OBClick(TObject *Sender)
{
//新建一个组件指针,并将Sender强制转换后赋值给新的组件指针.
TComponent *component = dynamic_cast<TComponent *>(Sender);
//如果为无效组件,返回
if (component == 0) return;
//将页面切换到组件的标志符所设值处.这里Tag应该应该是先设置好的
SetPage(component->Tag);
}
///////////////////////////////////////////////////////
void __fastcall TForm1::SetPage(int page)
{
//页面越界
if (page < 0 || page > PageControl1->PageCount - 1) return;
//激活所设置的页面
PageControl1->ActivePageIndex = page;
//将Panel2的标题设置为活动页面的标题
//Panel2->Caption = PageControl1->ActivePage->Caption;
}

[Behard]

TComponent *component = dynamic_cast<TComponent *>(Sender)

将 TObject 指针 Sender 强制转换为 TComponent 类型的
TComponent 类型或者继承于 TComponent 的才有 Tag