Código Delphi [-] procedure TFrmDireccion.EdNombreDireccionKeyPress(Sender: TObject; var Key: Char); begin //si no esta en esta lista entonces no lo acepta //solo debes añadir el caracter o el numero ascci con un # de los que quieres que acepte if not( key in ['a'..'z','ñ','A'..'Z','Ñ',#32,#8]) then key := #0; end;
procedure TFrmDireccion.EdNombreDireccionKeyPress(Sender: TObject; var Key: Char); begin //si no esta en esta lista entonces no lo acepta //solo debes añadir el caracter o el numero ascci con un # de los que quieres que acepte if not( key in ['a'..'z','ñ','A'..'Z','Ñ',#32,#8]) then key := #0; end;