Hacer Que No Me Acepte Letras O Numeros En Un Edit.
 

Como Le Hago Para Que No Me Acepte Letras O Numeros En Un Edit?

De Antemano, Muchas Gracias.

Hola.

¿Y ese Camel Case? :D Se te ha pegado de tanto programar en Delphi, ¿eh?



Por favor, realiza una búsqueda en los foros. Es un tema que ya está más que visto.


Salu2 :)

VaLiDaNdO CaDa cArAcTeR qUe dIgIteN, UsA eL EvEnTo OnKeYpReSs

SaLuD oS

Utiliza esto

Código Delphi [-]
 
procedure TFrmformulario.EditKeyPress(Sender: TObject;
  var Key: Char);
begin
  If Ord(Key) In [60..64,91..94,123..192, 194..200,202..204,
                  206..208,210,212..217,219..224, 226..232,
                  234..236, 238..240,242,244..249, 251..255] Then
    Key := #0
end;

¡Jo, poliburro, que lo había mandado a hacer una búsqueda! :'(

Que esa misma pregunta la contesté hace tres días. :D


¿Seguro que eso coje todas las letras? ¿Tildes también? ¿La ñ, la ç...?


Salu2.

ups, jajaja sorry es que esto se actualiza super rápido jajajaja. y sobre si coje, pues sería bueno probarlo no? jajaja no seais vagos jajajaja

¿vago? ya lo probé. No coje ç ni Ç, y sólo las letras con tilde tipo "´", pero no "¨" ni "`" ni "^"; no obstante, acepta +, -, *, puntos.....

y también el espacio, ¿debería? el amigo pedía sólo números y letras, nada de espacios...

bueno, ya le has dado el código, que se mire la tabla ASCII ;), que tú ya has hecho bastante.



Salu2.

Pidió ambos casos no?, no sep, ese código no recuerdo ni para que filtro lo uso jajajaa, será chamba de él definir bien los rangos de valores asccii a filtrar.

Suerte

Hey, momento, aquí hay un tremendo BUG, el compañero pedía esto:

Entonces que quiere que acepte.. :confused::confused::confused:

Salud OS

Y creo que también admite letras si las copias de algún lado (Ctrl+C) y las pegas en el control (Ctrl+V); esto es porque eso no pasa por el evento "KeyPress", ya que solo se presionan teclas de control.

Lo mejor sería utilizar un control al que se le pueda definir cuáles caracteres son válidos. Como por ejemplo, un TjvValidateEdit de las Jedi, en el cuál en su propiedad "CheckChars", tú defines cuales serían los caracteres que acepta. Cualquier cosa que no este dentro de esa cadena, no será aceptada.

De esta forma solo editas una propiedad y te olvidas de escribir código.

jajaja, tremendo bug amigo egostar, sería bueno imaginar que no quiere caracteres "Extraños" jajaja

Está bien... sólo tendría que instalarse las jedi :D

¿No se podría hacer en el OnChange?

Creo que también había un mensaje de Windows para "prohibirle" utilizar Ctrl+V al edit. Y creo que lo aprendí por aquí. Será cuestión de hacer una búsqueda.

Amigo mixe, si el compañero no se ha molestado en buscar una duda planteada muchas veces, cres que se molestará en buscar la opcion que planteas?.

:P jajaja

No tienen que ser las jedi, pueden ser las RX... vamos, que puede ser cualquiera que encuentres, siempre y cuando te permita editar una propiedad donde pongas los caractéres válidos... y te olvidas de escribir código, de ver en que evento podría ser, de ver si existen rutinas para validar el ctrl+c, o de sí... etc, etc, etc,etc, etc.

buen punto... :D:D