下面是个简单的例子：

.....

复制代码 代码如下:

begin

//先屏蔽掉所有标签

for i := 0 to PageControl.PageCount - 1 do

PageControl.Pages[i].TabVisible := False;//隐藏

//再开启首先要显示的tab页，Tab_Page1:TTabSheet;

PageControl.ActivePage := Tab_Page1; //这就是要控制跳转的页面

end;