5,391
社区成员
发帖
与我相关
我的任务
分享
Tabsheet1.tabvisible := False;
就是我想设置一个按钮,点击这个按钮,Tabsheet1就隐藏。但是有很多Tabsheet,所以我想就改成当前这个Tabsheet1隐藏
PageControl1.ActivePage.TabVisible:=False;
procedure TForm1.Button1Click(Sender: TObject);
begin
if PageControl1.ActivePageIndex > -1 then
PageControl1.Pages[PageControl1.ActivePageIndex].TabVisible := false;
end;