Here's a simple example:
.....
Copy the code code as follows:
begin
//First block all tags
for i := 0 to PageControl.PageCount - 1 do
PageControl.Pages[i].TabVisible := False;//Hide
//Open the tab page to be displayed first, Tab_Page1:TTabSheet;
PageControl.ActivePage := Tab_Page1; //This is the page to control the jump
end;