FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
aceptar solo digitos en Edit
Hola a todos!!
Alguien me podría decir como validar un Edit para que no me permita poner otro caracter que no sean digitos, esto es lo que yo tenog pero no me funciona: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key < 48 and Key > 57) then begin instrucciones . . . end; end; end. //el rango de 48 a 57 es el codigo correspondiente de 0 a 9 |
|
|
|