Foco no Page Control - Problemas
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!!
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
Curtidas 0
Melhor post
Rpessoa
28/07/2005
o comando correto é esse :
PageControl1.ActivePage := TSPastores;
falou !!!
PageControl1.ActivePage := TSPastores;
falou !!!
GOSTEI 1
Mais Respostas
Ivanh
28/07/2005
tu ñ pode testar o keydown e verificar se for shift+tab e voltar a page :?:
GOSTEI 0
Frostlost
28/07/2005
Não entendi onde usar este tspastores?
GOSTEI 0
Frostlost
28/07/2005
Qual tecla representa o shift + tab?
GOSTEI 0
Rpessoa
28/07/2005
Esse é o nome da minha TabSheet, acho que vc tem que estudar um pouco mais !!!
falou !
Não entendi onde usar este tspastores?
falou !
GOSTEI 0
Frostlost
28/07/2005
Meu problema ainda não foi resolvido, em qual evento uso o PageControl1.ActivePage := TabSheet3?
GOSTEI 0
Frostlost
28/07/2005
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!!!
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!!!
GOSTEI 0