TdxpageControl融合窗口和free

Posted 2021-03-13 usegear

    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;