这个必须是动态创建，需要多少创建多少。var ts: TTabSheet;begin ts:= TTabSheet.Create(PageControl1); ts.Caption:= '第'+ InttoStr(PageControl1.PageCount+1)+'页'; ts.PageControl:= PageControl1;end;
配合一楼的方法加个ini作为记录保存新添加的页
