Total de visualizações de página

domingo, 27 de outubro de 2013

comando para bloquear caracteres especiais durante a digitação

if not (Key in ['A'..'Z','a'..'z','0'..'9',' ',#8]) then abort;

OBS : o símbolo ' #8 ' faz referência à tecla backspace. Nesse caso ele libera a digitação do "BACKSPACE" .