Tecla ENTER funcionando como tecla TAB

0 Comente abaixo Jonathan Lamim (@jlamim)

No artigo de hoje veremos como dar a função da tecla TAB à tecla ENTER em um aplicativo desenvolvido no Delphi.

Muitas pessoas estão acostumadas a alternar entre os campos de um formulário usando a tecla ENTER, pois os aplicativos mais antigos funcionavam dessa forma. Alguns ainda funcionam assim, mas na maioria é preciso usar a tecla TAB para fazer essa troca.

Veja abaixo as propriedades e eventos que você precisará modificar para que esse recurso funcione no seu aplicativo.

1) Setar a propriedade KeyPreview do Form para True.
2) Setar a propriedade Default de todos os botões do Form para False.
3) Criar um evento OnKeyPress para o Form como este:


Procedure Tform1.FormKeyPress(Sender: Tobject; var Key: Char);

Begin

//verifica se a tecla pressionada é a tecla ENTER, conhecida pelo Delphi como #13

If key = #13 then

Begin

//se for, passa o foco para o próximo campo, zerando o valor da variável Key

Key:= #0;

Perform(Wm_NextDlgCtl,0,0);

end;

end;


Feito isso, as teclas ENTER e TAB terão a mesma função dentro do programa, mas lembre-se, você deverá repetir esse processo em cada “form” da aplicação.

Até o próximo artigo!
Recomendamos para você
 

Comentários
Compartilhe com seus amigos:
Novidades
Compartilhe com seus amigos:
últimos reviews
  • 8,1
    Review Zenfone 5
    Tela de 5 polegadas, câmera de foto e vídeo superiores aos concorrentes, boa usabilidade e preço baixo. A Asus acertou n...
  • 6,4
    Review Nokia Lumia 635
    Testamos hoje o Smartphone Nokia Lumia 635. Confira abaixo o que achamos.
  • 8,1
    Review Samsung Galaxy S5
    O smarphone primogênito da família Galaxy é a evolução de seus descendentes, evolução porque não há grandes novidades, m...



TOPO