Esconder Orelhas PageControl

Delphi

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


Caninha51

Caninha51

Curtidas 0

Melhor post

Marcio.theis

Marcio.theis

30/05/2006

Vc deve colocar a TabSheet como TabVisible=False, tipo:
TabSheet1.TabVisible:=False;



GOSTEI 1

Mais Respostas

Macario

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

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

Cavalcanti.fabio

29/01/2005

olá...vc poderia dar um exemplo pratico...para ocultar a guia do pagecontrol...

valeu,

fabio


GOSTEI 0
Jefferson Souza

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

Emerson Nascimento

29/01/2005

Você cria a TabSheet no PageControl e altera sua propriedade TabVisible para False.

GOSTEI 0
Jefferson Souza

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;
GOSTEI 0
Celso Lenon

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



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
POSTAR