TRzpagecontrol 如何动态创建？（分不多，请多包涵）
一，情况是这样的：我先手动创建一个Tabsheet1 里面包括button，panel，listview edit等控件，现在Tabsheet1里面每个控件功能都实现好了，现在我想通过一个按钮来实现动态创建Tabsheet1里一模一样的界面和功能，各位大大请问怎么实现？小弟比较菜，最好能详细说明，谢谢了
二，Rzpagecontrol 手动创建4个Tabsheet1，Tabsheet2，Tabsheet3，Tabsheet4
窗体create时 全部设置tabvisible为false，现通过按钮把前三个tabvisible为true，通过标题那个关闭按钮一个个关掉3个之后竟然会出现Tabsheet4那一页的内容（按道理来说是不能出现的），请问这个又是怎么回事啊？如果不要出现Tabsheet4那一页又怎么做？ 谢谢
[解决办法]
一，把那些功能写成一个frame,调用时就
var
f:TMyFrame
[解决办法]
var
TabSheet:TsTabSheet;
f:TFrame1;
begin
TabSheet:=TsTabSheet.Create(PageControl1);
TabSheet.PageControl := PageControl1;//容器归属
PageControl1.ActivePageIndex := TabSheet.PageIndex;//激活容器页
f := TFrame1.Create(TabSheet);//创建窗口
f.ManualDock(TabSheet);//将窗口融合到容器里
f.Align := alClient;//窗口自适应
procedure TForm13.btn3Click(Sender: TObject);
var
i : integer;
newTab : TTabSheet;
begin
newTab := TTabSheet.Create(pgc1);
newTab.PageControl := pgc1;
newTab.Visible := true;
newTab.Caption := 'ts' + IntToStr(pgc1.PageCount);
for I := 0 to ts1.ControlCount - 1 do
begin
if ts1.Controls[i] is TButton then
begin
with TButton.Create(newTab) do
begin
name := newTab.Name + '_' + ts1.Controls[i].Name;
Parent := newTab;
Visible := true;
top := TButton(ts1.Controls[i]).Top;
left := TButton(ts1.Controls[i]).left;
Width := TButton(ts1.Controls[i]).Width;
Height := TButton(ts1.Controls[i]).Height;
Caption := TButton(ts1.Controls[i]).Caption;
end;
end
else
if ts1.Controls[i] is TEdit then
begin
with TEdit.Create(newTab) do
begin
name := newTab.Name + '_' + ts1.Controls[i].Name;
Parent := newTab;
Visible := true;
top := TButton(ts1.Controls[i]).Top;
left := TButton(ts1.Controls[i]).left;
Width := TButton(ts1.Controls[i]).Width;
Height := TButton(ts1.Controls[i]).Height;
Text := TEdit(ts1.Controls[i]).Text;
end;
end;
end;
end;
