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;
TdxpageControl融合窗口和free
原文：https://www.cnblogs.com/usegear/p/12235702.html
