Tabsheet1.tabvisible := False; 我想改成当前这个Tabsheet1

[NEEZA哪吒]

Tabsheet1.tabvisible := False;

就是我想设置一个按钮，点击这个按钮，Tabsheet1就隐藏。但是有很多Tabsheet，所以我想就改成当前这个Tabsheet1隐藏

[日立奔腾浪潮微软松下联想]

procedure TForm1.Button1Click(Sender: TObject);
begin
if PageControl1.ActivePageIndex > -1 then
PageControl1.Pages[PageControl1.ActivePageIndex].TabVisible := false;
end;

[日立奔腾浪潮微软松下联想]

@葫芦老四 right～

[葫芦老四]

PageControl1.ActivePage.TabVisible:=False;