Delphi隐藏TPageControl的标签实例介绍

begin
//先屏蔽掉所有标签
fori:=0toPageControl.PageCount-1do
PageControl.Pages[i].TabVisible:=False;//隐藏

//再开启首先要显示的tab页，Tab_Page1:TTabSheet;
PageControl.ActivePage:=Tab_Page1;//这就是要控制跳转的页面
end;