Xailer & OZ Software

¿Hay alguna propiedad en la aplciación para que podamos saltar de un Edit a
otro, pulsando las teclas flecha arriba / flecha abajo???
Como el comportamiento que tiene Clipper con los Edits...
Un saludo,
Xevi.

Xevi,
> ¿Hay alguna propiedad en la aplciación para que podamos saltar de un Edit
> a otro, pulsando las teclas flecha arriba / flecha abajo???
> Como el comportamiento que tiene Clipper con los Edits...
No, no la hay. En principio se pueden usar esas teclas para pasar de un
control a otro, pero en el caso de los edit, usan internamente esas teclas,
y por eso no funciona.
Mientras encontramos una solución definitiva puedes poner el siguiente
código en tu programa:
CLASS TEdit FROM XEdit
METHOD WMKeyDown()
ENDCLASS
METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit
IF nKey == VK_UP
::GoPrevControl()
ELSEIF nKey == VK_DOWN
::GoNextControl()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
CLASS TMemo FROM XMemo
METHOD WMKeyDown()
ENDCLASS
METHOD WMKeyDown( nKey, nFlags ) CLASS TMemo
IF nKey == VK_UP .OR. nKey == VK_DOWN
RETURN Nil
ENDIF
RETURN Super:WMKeyDown( nKey, nFlags )
--
Un saludo,
José F. Giménez

Jose,
Me sirve PERFECTAMENTE!!!
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:4337d754$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Xevi,
>
>> ¿Hay alguna propiedad en la aplciación para que podamos saltar de un Edit
>> a otro, pulsando las teclas flecha arriba / flecha abajo???
>> Como el comportamiento que tiene Clipper con los Edits...
>
> No, no la hay. En principio se pueden usar esas teclas para pasar de un
> control a otro, pero en el caso de los edit, usan internamente esas
> teclas, y por eso no funciona.
>
> Mientras encontramos una solución definitiva puedes poner el siguiente
> código en tu programa:
>
> CLASS TEdit FROM XEdit
>
> METHOD WMKeyDown()
>
> ENDCLASS
>
> METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit
>
> IF nKey == VK_UP
> ::GoPrevControl()
> ELSEIF nKey == VK_DOWN
> ::GoNextControl()
> ELSE
> RETURN Super:WMKeyDown( nKey, nFlags )
> ENDIF
>
> RETURN 0
>
>
> CLASS TMemo FROM XMemo
>
> METHOD WMKeyDown()
>
> ENDCLASS
>
> METHOD WMKeyDown( nKey, nFlags ) CLASS TMemo
>
> IF nKey == VK_UP .OR. nKey == VK_DOWN
> RETURN Nil
> ENDIF
>
> RETURN Super:WMKeyDown( nKey, nFlags )
>
> --
> Un saludo,
>
> José F. Giménez
>
>