Esconder Orelhas PageControl
29/01/2005
0
Não quero disponibilizar as orelhas pro usuário mudar de aba, quero acessar as abas somente com ActivePageIndex.
Grato,
Caninha51
Caninha51
Post mais votado
30/05/2006
TabSheet1.TabVisible:=False;
Marcio.theis
Mais Posts
29/01/2005
Macario
Para isso vc tem que setar a propriedade o
TabVisible do TTabSheet para [b:2a7340e365]false[/b:2a7340e365]
E para impedir que o usuário mude de aba, crie uma variavel publica
bMudaTab : boolean, e no evento OnChanging, faça o seguinte
procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin AllowChange := bMudaTab; end;
ai voce controla a variavel, permitindo ou nao o usuario mudar de page.
Espero ter ajudado
30/05/2006
Cavalcanti.fabio
valeu,
fabio
10/09/2020
Jefferson Souza
[code:1:f5005dbfa5]TabSheet1.TabVisible:=False;[/code:1:f5005dbfa5]
Sim no TabSheet é assim mas e no PageControl?
10/09/2020
Emerson Nascimento
10/09/2020
Jefferson Souza
PageControl1.Pages[1].TabVisible := False; // Esconde ABA 2
PageControl1.Pages[2].TabVisible := False; // Esconde ABA 3
...
Pode esconder somente as que não for necessário, ou fazer um loop e esconder todas.
for x:=0 to 3 do
begin
PageControl1.Pages[x].TabVisible := False;
end;
10/09/2020
Celso Lenon
Não quero disponibilizar as orelhas pro usuário mudar de aba, quero acessar as abas somente com ActivePageIndex.
Grato,
Caninha51
Segue Exemplo:
procedure SelectPage(Page: TTypePage); begin tsCadastroCompleto.TabVisible := False; tsLista.TabVisible := False; tsHistorico.TabVisible := False; PageControl.ActivePage := nil; PageControl.Style := tsFlatButtons; case Page of tpLista: PageControl.ActivePage := tsLista; tpDetalhes: PageControl.ActivePage := tsCadastroCompleto; tpHistorico: PageControl.ActivePage := tsHistorico; end; end;
Clique aqui para fazer login e interagir na Comunidade :)