TdxpageControl融合窗口和free

    for I := cxpgcntrl1.PageCount - 1  downto 0do
    begin
      if cxpgcntrl1.Pages[i].Caption <> '首页' then
        begin
          cxpgcntrl1.Pages[i].Free;
          if cxpgcntrl1.PageCount=1 then Break
        end;
    end;