validar Edit!!

[[oscarac]]

me parece que tienes que encerrarlos entre parentesis cada pregunta

() and () and()

[ezequiel913]

Oscarac!!!

perfecto ahí compilo, puse a ejecutar y cuando estoy en el edit ese, me deja ingresar cualquier numero, no es que solo me deja entrar los que yo le digo, puedo entrar cualquier numero y no me dice nada, solo quiero que me deje entrar esos números.

[[oscarac]]

Entonces coloca el codigo en el evento OnExit
eso hace que cuando salga del foco verifique si los 2 primeros son los numeros que tu quieres que sean si no son regresara al edit

[ezequiel913]

Perfecto, hice eso en el evento OnExit y funciona.

muchas gracias!!

saludos!!!

[luchifer]

Prefiero utilizar el evento onkeypress del edit y coloco el codigo, por ejm:

if not (Key in ['0'..'9',#8,#13,'.']) then Key := #0 else
if key=#13 then sendmessage(Fing_nota.Handle,WM_NEXTDLGCTL,0,0)

o sea en este caso si no presionan solo numeros, el edit no acepta otro caracter