Question

delphi 在pagecontrol 添加一个新的tabsheet

是在已经完成了程序的情况下，要在程序运行状态，可以手动输入需要多少个tabsheet，并且自动命名为“第i页"。请问高手，是先设置了若干个tabsheet，在程序运行的时候时候隐藏之，需要的时候再使之显示，还是别的什么方法，求代码~
那可不可以在新添加的tabsheet上面默认加一些控件呢，比如加一个button。功能为点击后关闭啊之类的。如果不能就算了

Answer 1

这个必须是动态创建，需要多少创建多少。
var
ts: TTabSheet;
begin
ts:= TTabSheet.Create(PageControl1);
ts.Caption:= '第'+ InttoStr(PageControl1.PageCount+1)+'页';
ts.PageControl:= PageControl1;
end;

Answer 2

配合一楼的方法
加个ini作为记录保存新添加的页