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
tab1.Caption:=timetostr(time);
tab1.PageControl :=PageControl1