GARANTIR DESCONTO

Fórum Foco no Page Control - Problemas #289845

28/07/2005

0

Galera, é o seguinte estou usando um page control.

Só que estou com o seguinte problema, estou usando o evento onexit da ultima dbedit para mudar de pg e o campo seguinte receber o foco.

Até a aí tudo bem, o problema acontece que quando é usado SHIFT + TAB para voltar ao campo anterior da mesma pg. Isso não acontece, ele va para a página seguinte para o campo especificado no evento.

Alguem tem uma solução para este problema? Preciso usar o SHIFT + TAB para voltar ao campo anterior e se for usado o TAB ir para a pg seguinte e focar determinada edit.

Segue abaixo o procedimento utilizado para correção.

procedure TFrmCadAlunos.DBEdit49Exit(Sender: TObject);
begin
PageControl1.ActivePageIndex:=2;
PageControl1.Pages[2].SetFocus;
dbedit20.SetFocus;
end;

Valeu!!


Frostlost

Frostlost

Responder

Post mais votado

28/07/2005

o comando correto é esse :

PageControl1.ActivePage := TSPastores;

falou !!!


Rpessoa

Rpessoa
Responder

Gostei + 1

Mais Posts

28/07/2005

Ivanh

tu ñ pode testar o keydown e verificar se for shift+tab e voltar a page :?:


Responder

Gostei + 0

28/07/2005

Frostlost

Não entendi onde usar este tspastores?


Responder

Gostei + 0

28/07/2005

Frostlost

Qual tecla representa o shift + tab?


Responder

Gostei + 0

28/07/2005

Rpessoa

Esse é o nome da minha TabSheet, acho que vc tem que estudar um pouco mais !!!

Não entendi onde usar este tspastores?


falou !


Responder

Gostei + 0

28/07/2005

Frostlost

Meu problema ainda não foi resolvido, em qual evento uso o PageControl1.ActivePage := TabSheet3?


Responder

Gostei + 0

28/07/2005

Frostlost

O que eu fiz, fiz uma gambiarra.
Criei uma edit com altura 0 e largura 0 (portanto invisivel) e usei o codigo citado acima no evento onenter dela, desta forma o shift tab funciona na edit anterior. Ficou meio feio mas vai ajudar quem teve este mesmo problema, pelo menos a interface ficou limpa!!!

Valeu galera!!!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar