Ocultando as abas de um TPageControl

caro amigos estou postando mais uma dica simples.

Desta forma que estou executando a rotina Abaixo, está sendo feito direto no Formulário principal, desta forma e simples só que não conseguimos reaproveita em outros formulários.

Vamos ocultar as abas do TPagecontrol.

Neste caso vamos crie uma aplicação nova VCL, nesta aplicação vamos adicione ao formulário principal um PageControl, procure a sua aba de Componente TPageControl, depois de adiciona o PagControl ao Formulário principal, de um click com o botão direito do mouse e adicione as abas necessária.

Exemplo :


Cadastro | Pesquisa


Depois de adicionar as Abas, vamos para código, de um click duplo do formulário principal ou vai no evento OnCreate do formulário principal e adicione o código abaixo.

procedure TForm1.formCreate(Sender: TObject);
var
   i : integer;
begin
     for i := 0 to PageControl1.PageCount -1 do
     pageControl1.Pages[i].TabVisible := false;
     // deixa a primeira página ativa
    Pagecontrol1.ActivePage := PageControl1.Pages[0];
end;

Agora que Escrevemos este código, vamos executar o aplicativo para testando e verificamos se deu tudo certo.

Lógico que este código só irá oculta as abas não irá fazer mais nada, se quisermos trabalhar com a abas precisamos, realizamos codificar um pouquinho mais, neste caso, estarei dando continuidade em outro post, como podemos trabalhar com as abas, oculta.

Galera, espero que este post ajude