Tecla ENTER funcionando como tecla TAB

Novo aqui no site? Talvez gostaria de assinar o
RSS feed do site?

Publicado em: 02/12/2008
Área: Delphi
Visualizações: 654
Comentário(s): 0

imprimir envie por e-mail compartilhe
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!

veja mais
Preencha o formulário para comentar:
Nome:*

E-mail:* (não será exibido)

Site: (http://)

Comentário:*

Deseja receber os comentários no e-mail?

Anti-spam: (nova imagem)





Seja o primeiro a comentar!

Autor da matéria
Jonathan Lamim Antunes
Web Designer e Programador Web (PHP/MySQL) e Desktop (Delphi). Professor de Informática.

Todas as matérias de Jonathan Lamim Antunes

Publicidade
Seguir o Oficina da Net
RSS

RSS

RSS
Top matérias do mês
Matérias relacionadas

© 2005 - 2009 - Oficina da Net - v 4.0 - É proibida a reprodução parcial ou completa do conteúdo deste site sem autorização por escrito. Resolução adequada: 1024x768px.