delphi PageControl1 控制 某个分页 隐藏

delphi  PageControl1 控制 某个分页 隐藏

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 隐藏 TabSheet2
  PageControl1.Pages[1].TabVisible := False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // 显示 TabSheet2
  PageControl1.Pages[1].TabVisible := True;
end;