AdvPageControl或者pagecontrol 动态建立新页面

var 

    tab1:TadvTabSheet;

begin

   tab1:=TadvTabSheet.Create(self);

    tab1.Caption:='供应商资料';

    tab1.AdvPageControl:=ap1;

pagecontrol

 tab1:=TTabSheet.Create(self); 
    tab1.Caption:=timetostr(time); 
    tab1.PageControl   :=PageControl1