Obrigar Edit Escrever Números / Letras

[SaYaDiN² 1]

Adicione ao seu Form:

 

1 Edit (Aba Standard)

 

Para o Edit aceitar somente Números adicione o código no evento OnKeyPress:

 

if Not (key in ['0'..'9',#8]) then

key := #0;

end;

 

Para o Edit aceitar somente Letras adicione o código no evento OnKeyPress:

 

if Not (key in ['a'..'z']) then

key := #0;

end;

 

Créditos

bl00dshooter

Ša¥aÐiN