Como puedo validar que no se muevan entre textbox con las felchas de cursor.

Saludos !

Como puedo validar que el usuario no se mueva a traves de las flechas de
cursor entre los textbox, intente este codigo en la propiedad keypressed
de cada textbox pero no me respeta:

LPARAMETERS nKeyCode, nShiftAltCtrl
if (((lastkey() = 127) or (lastkey() = 75)) and
(empty(alltrim(this.value))))
nodefault
else
if (((nKeyCode = 13) or (nKeyCode = 8)) and (errorencampo))
thisform.rcommandbutton2.setfocus
errorencampo=.f.
endif
endif

Las teclas de la flechas del cursor son 72[arriba], 80[abajo],
75[izquierda] y 77[derecha], con esta ultima no hay problema, pero con las
3 primeras es donde tengo el problema de validación.

Aprovechando el mensaje:

Como puedo validar los Spinner para que no puedan escribir en el y solo
permita avanzar o retroceder segun se requiera, ya que le indique un rango
inicial y uno final y no tengo problema, pero pues estan disponibles para
escritura, y deseo que no lo esten, lo intente con readonly, pero no me
permite manipularlos...

Muchas gracias.
Hasta Luego.

Atte: Marco A. Méndez Bueno


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway