江
江南大米
Unregistered / Unconfirmed
GUEST, unregistred user!
关闭pagecontrol中动态生成的多个tabsheet，我希望留下第一页！
飘
飘摇客
Unregistered / Unconfirmed
GUEST, unregistred user!
查看索引啊，一个For循环，计数除去第一个索引应该就行了。
道
道长
Unregistered / Unconfirmed
GUEST, unregistred user!
按照索引把要关闭的sheet释放(free)掉就可以了
D
duanliandl
Unregistered / Unconfirmed
GUEST, unregistred user!
var
i:integer;
begin
for i:=1 to PageControl1.PageCount-1 do
PageControl1.Pages.Free;
i:integer;
begin
for i:=1 to PageControl1.PageCount-1 do
PageControl1.Pages.Free;
江
江南大米
Unregistered / Unconfirmed
GUEST, unregistred user!
我的tabsheet上有其他的动态生成的控件，我想这样关闭那些控件就没问题妈？
江
江南大米
Unregistered / Unconfirmed
GUEST, unregistred user!
我用 begin
ts := TTabSheet.Create(self);
with ts do
begin
i:=i+1;
PageControl:= PageControl1;
Caption := 'a'+inttostr(i);
PageControl.ActivePage:=PageControl.Pages[i-1];
end;
建立新的tabsheet，但关闭实现后，建立新的就出错！[
]
ts := TTabSheet.Create(self);
with ts do
begin
i:=i+1;
PageControl:= PageControl1;
Caption := 'a'+inttostr(i);
PageControl.ActivePage:=PageControl.Pages[i-1];
end;
建立新的tabsheet，但关闭实现后，建立新的就出错！[
]
J
JohnsonGuo
Unregistered / Unconfirmed
GUEST, unregistred user!
var
i: Integer;
begin
for i := PageControl1.PageCount - 1 downto 1 do
PageControls.Pages.Free;
end;
i: Integer;
begin
for i := PageControl1.PageCount - 1 downto 1 do
PageControls.Pages.Free;
end;
江
江南大米
Unregistered / Unconfirmed
GUEST, unregistred user!
关闭tabsheet时，我想将tabsheet上面生成的控件一起free掉！
W
wcwcw
Unregistered / Unconfirmed
GUEST, unregistred user!
你不必将tabsheet上面生成的控件一起free掉， 只要直接
var
i: Integer;
begin
for i := PageControl1.PageCount - 1 downto 1 do
PageControls.Pages.Free;
end;
的同时就可以把你生成的以PageControls为Parrent的控件Free了！
var
i: Integer;
begin
for i := PageControl1.PageCount - 1 downto 1 do
PageControls.Pages.Free;
end;
的同时就可以把你生成的以PageControls为Parrent的控件Free了！
江
江南大米
Unregistered / Unconfirmed
GUEST, unregistred user!
但我原先新建可以的，但关闭以后就再新建就出错了！急！
江
江南大米
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位没有特满意的！