Esconder Orelhas PageControl
Alguem sabe como faço pra esconder as orelhas do pagecontrol?
Não quero disponibilizar as orelhas pro usuário mudar de aba, quero acessar as abas somente com ActivePageIndex.
Grato,
Caninha51
Não quero disponibilizar as orelhas pro usuário mudar de aba, quero acessar as abas somente com ActivePageIndex.
Grato,
Caninha51
Caninha51
Curtidas 0
Melhor post
Marcio.theis
30/05/2006
Vc deve colocar a TabSheet como TabVisible=False, tipo:
TabSheet1.TabVisible:=False;
GOSTEI 1
Mais Respostas
Macario
29/01/2005
Ola programador.
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
ai voce controla a variavel, permitindo ou nao o usuario mudar de page.
Espero ter ajudado
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
GOSTEI 0
Cavalcanti.fabio
29/01/2005
olá...vc poderia dar um exemplo pratico...para ocultar a guia do pagecontrol...
valeu,
fabio
valeu,
fabio
GOSTEI 0
Jefferson Souza
29/01/2005
Vc deve colocar a TabSheet como TabVisible=False, tipo:
TabSheet1.TabVisible:=False;
Sim no TabSheet é assim mas e no PageControl?
GOSTEI 0
Emerson Nascimento
29/01/2005
Você cria a TabSheet no PageControl e altera sua propriedade TabVisible para False.
GOSTEI 0
Jefferson Souza
29/01/2005
PageControl1.Pages[0].TabVisible := False; // Esconde ABA 1
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;
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;
GOSTEI 0
Celso Lenon
29/01/2005
Alguem sabe como faço pra esconder as orelhas do pagecontrol?
Não quero disponibilizar as orelhas pro usuário mudar de aba, quero acessar as abas somente com ActivePageIndex.
Grato,
Caninha51
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;
GOSTEI 0