Buscar por:

Escreva somente caracteres (letras e palavras).

Código

{Esta dicas são para aqueles que não querem permitir ao usuário de escreverem números e caracteres especiais, somente acentos gráficos e letras.}

{No evento OnKeyPress digite o seguinte}

begin

If ( key in['0'..'9',',','.',':',';','/','?','[','{','-','_','=','+','}',']','ª','º','!','@','#','$','%','¨','&','*','(',')','"',''',%] ) then

begin

beep;

key:=#0;

end;

end;

{Esse código possui um erro: Quando a pessoa digita caracteres especiais ou cola o que está na área de transferência ele não trava. Mas já dá pra brincar um poquinho com ele.}