Como deixar invisível uma aba do PageControl?
Veja como é fácil ocultar uma TabSheet de um PageControl.
Para este exemplo, crie um novo projeto, coloque um TPageControl e
adicione algumas TabSheets.
Crie um botão e no evento OnClick, deixe conforme o exemplo abaixo:
1
2
3
4
| procedure TForm1.Button1Click(Sender: TObject);
begin
TabSheet2.TabVisible := False;
end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
TabSheet2.TabVisible := False;
end;
Você verá que a aba número dois ficará oculta.
Caso queira fazer a aba voltar a aparecer, é só colocar True.
1
2
3
4
| procedure TForm1.Button2Click(Sender: TObject);
begin
TabSheet2.TabVisible := True;
end; |
procedure TForm1.Button2Click(Sender: TObject);
begin
TabSheet2.TabVisible := True;
end;
Dúvidas ou sugestões deixe nos comentários do post.
-
InfusTec
-
11.906 views
- 0 comentários
- 11 de maio de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo
