我用 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,但关闭实现后,建立新的就出错![]
你不必将tabsheet上面生成的控件一起free掉, 只要直接
var
i: Integer;
begin
for i := PageControl1.PageCount - 1 downto 1 do
PageControls.Pages.Free;
end;
的同时就可以把你生成的以PageControls为Parrent的控件Free了!