百分求救Tabsheet控件的添加与删除方法?

百分求救Tabsheet控件的添加与删除方法?百分求救Tabsheet控件的添加与删除方法?我创建了一个函数,用button调用这个函数创建的,添加了多个myTabSheet控件void __fastcall TForm1::CreateNewTabSheel(){ TTabSheet *myTabSheet ; myTabSheet=new TTabSheet(this); myTabSheet->PageControl=PageControl1; myTabSheet->Visible=true;}怎么才能删除动态添加的myTabSheet中指定的myTabSheet控件?添加那个函数应该用错误的,请救修改TTabSheet *pS = new TTabSheet(PageControl1); pS->PageControl = PageControl1;delete pS;动态添加页:void __fastcall TForm1::btnAddSheetClick(TObject *Sender){ TTabSheet *myTabSheet ; myTabSheet=new TTabSheet(this); myTabSheet->PageControl=PageControl1; myTabSheet->Caption = "Sheet" IntToStr(myTabSheet->TabIndex); myTabSheet->Visible=true;}删除当前页:void __fastcall TForm1::btnDelSheetClick(TObject *Sender){ if (PageControl1->ActivePage) delete PageControl1->ActivePage;}delete (TTabSheet *)(PageControl1->ActivePage);类似这样