FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Filtrar entrada de teclado
Hola foreros yo con mas dudas que nunca
estoy tratando de filtrar los datos que se ingresan a una aplicacion tengo un tedit1 en el que se ingresan los datos pero quiero que solo se ingresen numeros enter tab y borrar. el codigoque tengo abisa que se ingreso una letra u otro caracter pero permite que se escriba. lo que busco es algo que no permita que se escriban los demas caracteres. si me pueden orientar un poco se los agradecere. procedure TVentas_b.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Begin if not(chr(Key) in ['0','1', '2','3','4','5','6','7','8','9' ]) then ShowMessage('solo numeros'); end; end.
__________________
www.cybervanet.cl El matrimonio es como un submarino puede flotar pero esta diseñado para hundirse |
#2
|
||||
|
||||
Por cierto, si usa el portapapeles, si permitirá pegar letras Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#3
|
||||
|
||||
Hola,
Esto no parece tener problemas con el portapapeles: Por cierto que lo encontré aquí. Actualización: Parece que sí hay algún problema con el portapapeles: No vale "pegar" letras, ¡pero tampoco números! Última edición por dec fecha: 23-07-2005 a las 21:56:13. Razón: (actualización) |
#4
|
||||
|
||||
gracias
el codigo que envio lepe funciona 'OK'
en el anterior parece faltar un #antes del 0para que aule la tecla gracias a ambos
__________________
www.cybervanet.cl El matrimonio es como un submarino puede flotar pero esta diseñado para hundirse |
|
|
|