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;

• 打赏
• 举报

回复 1

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

@changfenglee right～

• 举报

回复 赞

[changfenglee]

PageControl1.ActivePage.TabVisible:=False;

• 打赏
• 举报

回复 1