关闭pagecontrol中动态生成的多个tabsheet(100分)

  • 主题发起人 主题发起人 江南大米
  • 开始时间 开始时间

江南大米

Unregistered / Unconfirmed
GUEST, unregistred user!
关闭pagecontrol中动态生成的多个tabsheet,我希望留下第一页!
 
查看索引啊,一个For循环,计数除去第一个索引应该就行了。
 
按照索引把要关闭的sheet释放(free)掉就可以了
 
var
i:integer;
begin
for i:=1 to PageControl1.PageCount-1 do
PageControl1.Pages.Free;
 
我的tabsheet上有其他的动态生成的控件,我想这样关闭那些控件就没问题妈?
 
我用 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,但关闭实现后,建立新的就出错![:(]
 
var
i: Integer;
begin
for i := PageControl1.PageCount - 1 downto 1 do
PageControls.Pages.Free;
end;
 
关闭tabsheet时,我想将tabsheet上面生成的控件一起free掉!
 
你不必将tabsheet上面生成的控件一起free掉, 只要直接
var
i: Integer;
begin
for i := PageControl1.PageCount - 1 downto 1 do
PageControls.Pages.Free;
end;
的同时就可以把你生成的以PageControls为Parrent的控件Free了!
 
但我原先新建可以的,但关闭以后就再新建就出错了!急!
 
谢谢各位没有特满意的!
 
后退
顶部