Como evitar que seja digitado letras em um edit no Delphi?

Em alguns casos é necessário impedir que o usuário digite letras e outros tipos de caracteres diferentes de números, e em casos mais específicos, é necessário isolar a digitação, focando em permitir apenas números e alguns tipos de teclas.

O Delphi disponibiliza uma propriedade booleana que monitora isto, porém vou mostrar uma forma via codificação que também atende esta necessidade.

1º Com o form aberto, arraste para ele um componente do tipo TEdit ;

2º Clique no componente "Edit" e em Object Inspector clique na aba Events e então clique duas vezes no evento "OnKeyPress" ;

3º Será criado um método (procedure). Após begin, digite o seguinte:

     if not ( Key in ['0'..'9', #8] ) then key := #0 ;

4º Pode salvar, compilar e executar o projeto. Tente digitar letras ou qualquer outro caractere diferente de números, você perceberá que a digitação está bloqueada.

Nesta configuração, são aceitos apenas: números e a digitação da tecla Backspace que corresponde à 8 na tabela ASCII.

Espero que seja útil.

Até+