关于继承的问题!(20分)

class TDockableForm : public TForm
{
__published: // IDE-managed Components
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
}
class TfrmTreeList : public TDockableForm
{
__published: // IDE-managed Components
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
}
void __fastcall TDockableForm::FormClose(TObject *Sender,
TCloseAction &Action)
{
ShowMessage("TDockableForm::FormClose");
}
void __fastcall TfrmTreeList::FormClose(TObject *Sender,
TCloseAction &Action)
{
ShowMessage("TfrmTreeList::FormClose");
}
我在调用TfrmTreeList::FormClose的时候,我想:
ShowMessage("TDockableForm::FormClose");
ShowMessage("TfrmTreeList::FormClose");
应该怎么做?