Delphi dicas

Escreva somente caracteres (letras e palavras).

{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.}