O QUE HÁ DE NOVO

Tecla ENTER funcionando como tecla TAB

Jonathan Lamim por Jonathan Lamim 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!

Recomendado
Assuntos delphi, programação e formulários
Siga nas redes
Encontrou algum erro no texto?

Entre em contato com o autor e nos ajude a melhorar a qualidade dos posts cada vez mais!

AVISAR
O QUE LER EM SEGUIDA
Comentários
Últimas publicaçõesver tudo
ASSINE NOSSA NEWSLETTER

Não perca nenhuma novidade do mundo da tecnologia.