CADASTRE-SE

0 Categoria: Artigos » Delphi

Tecla ENTER funcionando como tecla TAB

Por Jonathan Lamim
Data:

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!

Leia a seguir: Criando um simples cadastro de Clientes com Delphi e Interbase



Recomendados para você
Ainda restam dúvidas? Pergunte aqui em nosso fórum
Mais de Delphi



Comentários:

TOPO