通过标签页标题或标签页名称隐藏标签页

Question

Delphi中是否有任何解决方案隐藏/取消隐藏页面控件中的标签页而不使用此代码

procedure TForm1.BitBtnClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to PageControl1.PageCount - 1 do
  begin
     PageControl1.Pages[i].TabVisible := False; // true to make it visible...
  end;
end;

但在使用标签页名称或标签页标题

时执行此任务

Answer 1

通过设置TabVisible属性来执行隐藏标签页。这是做到这一点的方法。

或许你要做的是通过标题识别标签页。你可以这样做：

for i := 0 to PageControl1.PageCount - 1 do
  if PageControl1.Pages[i].Caption = TargetCaption then
    PageControl1.Pages[i].TabVisible := False;