Tab com enter
Código
Tab com Enter (No evento On KeyPress)
Begin
If Key = #13 then //Se o comando for igual a enter
Begin
Key := #0;
Perform (wm_nextdlgctl, 0, 0); //Para pular de campo em campo
End;
End.
Obs: Na Propriedade Tab Order dos campos, você coloca a ordem que
o Tab vai percorrer pelos campos no formulário quando o Enter for
pressionado.E na Propriedade KeyPreview do formulário, você deve
deixar como True para ativar o comando acima.
Publicidade
Vote na dica
Quantidade de votos: 1 voto
Aceitação: 20%
Detalhes da dica
Categoria: Forms
Adicionada dia: 02/11/07
Por: Alex
Visualizada: 8222 vezes
Adicionada dia: 02/11/07
Por: Alex
Visualizada: 8222 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009