N�o deixar alternar entre tabsheets

Question

Pessoal se alguem poder me ajudar agrade�o. Tenho em um formul�rio um Pagecontrol. E dentro deste pagecontrol tenho 2 tabsheets. O primeiro serve para exibir uma listagem dos funcionarios cadastrados ...

Tchoninho · Answer

Voc� precisa verificar qual modo esta a tabela inser��o,edi��o...
Coloque o c�digo abaixo e fa�a as devidas modifica��es que deve funcionar.

procedure TForm1.FormShow(Sender: TObject);
begin
  PageControl1.ActivePage:=Tabsheet1;
end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
 if PageControl1.ActivePage<>Tabsheet1
  then begin
   ShowMessage(�Voc� precisa salvar o registro atual�);
   PageControl1.ActivePage:=Tabsheet1;
   end;
end;

Marco Salles · Answer

Volto a esse t�pico antigo datado de : S�b Dez 13, 2003 porque estou com um problema familiar ao do nosso amigo wagsilvasilva

N�o estou conseguindo implementar a dica do amigo tchoninho , e o que quero e exatamente permitir ou n�o a saida da aba em quest�o atraves de um teste simples

Parecido como se faz com os formul�rios , que no caso no evento OnClose usamos Action := Canone ou Action := Cafree ; de acordo com a nossa necessidade

Obrigado

Michael · Answer

Ol�!Existem basicamente tr�s formas de se impedir a utiliza��o de uma aba em um componente [b:31e21c143b]TPageControl[/b:31e21c143b]. Vamos a elas:[b:31e21c143b]1) Setando a propriedade [color=blue:31e21c143b]Enabled[/color:31e21c143b] da(s) TabSheet(s) bloqueada(s) para [color=blue:31e21c143b]False[/color:31e21c143b]:[/b:31e21c143b] isso ir� desativar todos os controles dentro da aba, mas ela ainda poder� ser selecionada;[b:31e21c143b]2) Setando a propriedade [color=blue:31e21c143b]TabVisible [/color:31e21c143b]da(s) TabSheet(s) bloqueada(s) para [color=blue:31e21c143b]False[/color:31e21c143b]:[/b:31e21c143b] ir� esconder as abas, n�o permitindo que o usu�rio as selecione;[b:31e21c143b]3) Via evento [color=blue:31e21c143b]OnChanging[/color:31e21c143b]:[/b:31e21c143b] Este evento passa um par�metro [b:31e21c143b]var [/b:31e21c143b]chamado [b:31e21c143b]AllowChange[/b:31e21c143b], onde vc pode dizer se a mudan�a de aba � permitida ou n�o. Este evento � disparado [b:31e21c143b]antes [/b:31e21c143b]da mudan�a, e n�o depois, evitando um efeito visual indesejado.A dica do colega [b:31e21c143b]tchoninho[/b:31e21c143b] funciona. O �nico problema com a abordagem que ela utiliza � que a aba �proibida� ser� exibida ao usu�rio, e depois o foco voltar� para a anterior. Pessoalmente, considero isso uma falha visual.Usando AllowChange em conjunto com a propriedade Enabled das TabSheets, por exemplo, fica f�cil restingir o acesso.Se precisar de exemplos em c�digo, � s� postar.[]�s[b:31e21c1...

Host · Answer

Este � um outro tipo de solu��o, � vai tornar as abas invisiveis mas sim indisponiveis :

procedure TFBriCam.PagesChanging(Sender: TObject;
var AllowChange: Boolean);
begin
bMudaTab:=False;
AllowChange := bMudaTab;
end;

Marco Salles · Answer

Antes de mais nada quero agradecer a participa��o de [b:95e738390c]Michael e Host[/b:95e738390c]

A dica do colega tchoninho funciona. O �nico problema com a abordagem que ela utiliza � que a aba �proibida� ser� exibida ao usu�rio, e depois o foco voltar� para a anterior. Pessoalmente, considero isso uma falha visual.

Eu sabia disso , por�m muitas das vezes habilitamos e desabilitamos componentes e quando o foco volta para a Aba anterior alguns componetes podem nen existir mais... � com isso erros s�o gerados, principalmente de focos

Contudo Tinha a necessidade de testar antes minha condi��o antes de permitir que se mudasse de Aba... E felismente o Evento PageControl1Changing veio como uma luva para a minha necessidade

:arrow:
[b:95e738390c]Felismente usando o Passo 3)[/b:95e738390c] Abordado por voce e posteiromente pelo Host , consigo testar a minha condi��o antes que a aba perca o foco...

3) Via evento OnChanging: Este evento passa um par�metro var chamado AllowChange, onde vc pode dizer se a mudan�a de aba � permitida ou n�o. Este evento � disparado antes da mudan�a, e n�o depois, evitando um efeito visual indesejado.

[color=red:95e738390c]Finalmente[/color:95e738390c]

Se precisar de exemplos em c�digo, � s� postar.

:P :P :P
[b:95e738390c]Depois da on�a morta � facil pega-la pelo rabo[/b:95e738390c]

[color=darkblue:95e738390c]Muitissimo obrigado aos dois...[/color:95e738390c]

Raserafim · Answer

no evento Onchanging preciso saber em qual tabsheat foi clicado.

o m�ximo que consegui foi qual est� ativo, ou seja, o que atualmente est� ativo, mas n�o o que o suau�rio quer que fique ativo.

minha condi��o depende de para qual o usu�rio quer ir.