Tecla ENTER funcionando como tecla TAB

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

Por | @jonathanlamimkt Programação
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!

Mais sobre: delphi, programação, formulários
Share Tweet
DESTAQUESMais compartilhados
Comentários
AINDA NÃO SE INSCREVEU?

Vem ver os vídeos legais que
estamos produzindo no Youtube.