CB的PageControl控件动态删除TABSHEET

http://www.docin.com/p-232645883.html

void __fastcall DeleSheet(TPageControl* pPageCtl)

{

    if(pPageCtl->ActivePageIndex >= 0)

         pPageCtl->Pages[pPageCtl->ActivePageIndex]->Free();
}