![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() como valido para que en un edit soo meta numeros?
estoy utilizanco con el evento on keypress pero es que asi es un coñazo esto es lo que pongo: procedure TPresupuestos.Cantidad1KeyPress(Sender: TObject; var Key: Char); begin if key in ['a'..'z','A'..'Z','ñ','Ñ','.',' ',','] then //los .. sirven pa desde tal a cual //asi si mete alguno que sea estos no deja teclearlos pero de estaforma //tengo que validad todos los caracteres asscii key:=chr(0); end; si alguien sabe como hacer que cont Gracias |
#2
|
|||
|
|||
![]() gracias a todos ya no me hace falta que lo e leido en otra parte de este foro XD
|
![]() |
|
|
![]() |
|