Página 1 de 1

Como fao para navegar com as TECLAS DE SETA, PARA CIMA, PARA BAIXO.???

Publicado: Mié Feb 25, 2009 5:53 pm
por claudio
Tenho uma aplicação onde o usuario quer se mover com SETAS PARA CIMA,PARA
BAIXO.

Como fao para navegar com as TECLAS DE SETA, PARA CIMA, PARA BAIXO.???

Publicado: Jue Feb 26, 2009 9:17 am
por Xevi
Claudio,
Supongo que lo que quieres es poder ir al anterior o siguiente Edit al
pulsar las flechas arriba o abajo.
Puedes añadir este código en tu aplicación, me lo escribieron hace ya
muuuucho tiempo...
CLASS TEdit FROM XEdit
PUBLISHED:
PROPERTY lAutoSelect INIT asSELECTALL
METHOD WMKeyDown( nKey, nFlags )
METHOD WMKillFocus( wParam, lParam ) INLINE Super:WMKillFocus( wParam,
lParam ), ::lInsert := .T., 0
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
A mi me está funcionando perfectamente, espero que sea lo que necesitas.
Un Saludo,
Xevi.
"claudio" <santos@transbank.com.br> escribió en el mensaje
news:[email=49a577d3@svctag-j7w3v3j....]49a577d3@svctag-j7w3v3j....[/email]
> Tenho uma aplicação onde o usuario quer se mover com SETAS PARA CIMA,PARA
> BAIXO.
>
>

Como fao para navegar com as TECLAS DE SETA, PARA CIMA, PARA BAIXO.???

Publicado: Jue Feb 26, 2009 12:37 pm
por jrcsistemas
Xevi.
Me intereso tu respuesta y lo quise implementar pero me aparece esto al
ejecutarlo.
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: TFORMMENU:XEDIT
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFORMMENU:CREATEFORM (3)
TFORMMENU:NEW (182)
MAIN (25)
No encuentra la clase xEdit?
Juan
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:49a6501f$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Claudio,
>
> Supongo que lo que quieres es poder ir al anterior o siguiente Edit al
> pulsar las flechas arriba o abajo.
>
> Puedes añadir este código en tu aplicación, me lo escribieron hace ya
> muuuucho tiempo...
>
> CLASS TEdit FROM XEdit
> PUBLISHED:
> PROPERTY lAutoSelect INIT asSELECTALL
>
> METHOD WMKeyDown( nKey, nFlags )
> METHOD WMKillFocus( wParam, lParam ) INLINE Super:WMKillFocus( wParam,
> lParam ), ::lInsert := .T., 0
> 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
>
>
> A mi me está funcionando perfectamente, espero que sea lo que necesitas.
>
>
> Un Saludo,
> Xevi.
>
>
> "claudio" <santos@transbank.com.br> escribió en el mensaje
> news:[email=49a577d3@svctag-j7w3v3j....]49a577d3@svctag-j7w3v3j....[/email]
>> Tenho uma aplicação onde o usuario quer se mover com SETAS PARA CIMA,PARA
>> BAIXO.
>>
>>
>
>

Como fao para navegar com as TECLAS DE SETA, PARA CIMA, PARA BAIXO.???

Publicado: Jue Feb 26, 2009 12:45 pm
por jrcsistemas
Xevi.
Solucionado. Funciona bien. El unico inconveniente es cuando llego a un
ComboBox, y vengo entusiasmado pulsando tecla ABAJO, se me cambia el volar
que tenia el combo y puede ocacionar un lio en los datos si no tengo
cuidado. No se si le lo voy a en produccion.
Gracias.
Juan
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:49a6501f$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Claudio,
>
> Supongo que lo que quieres es poder ir al anterior o siguiente Edit al
> pulsar las flechas arriba o abajo.
>
> Puedes añadir este código en tu aplicación, me lo escribieron hace ya
> muuuucho tiempo...
>
> CLASS TEdit FROM XEdit
> PUBLISHED:
> PROPERTY lAutoSelect INIT asSELECTALL
>
> METHOD WMKeyDown( nKey, nFlags )
> METHOD WMKillFocus( wParam, lParam ) INLINE Super:WMKillFocus( wParam,
> lParam ), ::lInsert := .T., 0
> 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
>
>
> A mi me está funcionando perfectamente, espero que sea lo que necesitas.
>
>
> Un Saludo,
> Xevi.
>
>
> "claudio" <santos@transbank.com.br> escribió en el mensaje
> news:[email=49a577d3@svctag-j7w3v3j....]49a577d3@svctag-j7w3v3j....[/email]
>> Tenho uma aplicação onde o usuario quer se mover com SETAS PARA CIMA,PARA
>> BAIXO.
>>
>>
>
>

Como fao para navegar com as TECLAS DE SETA, PARA CIMA, PARA BAIXO.???

Publicado: Jue Feb 26, 2009 1:14 pm
por Xevi
Juan,
La verdad es que tienes razón, cuando entre Edits tenemos Combos... pues se
nos va la mano con tanto flecha arriba/abajo, pero aparte de esto... los
usuarios finales te agradecen que puedan canviar de foco con las flechas,
salvando este inconveniente,... recuerda que "antes" de Xailer, yo
programaba en Clipper MSDOS... y cuesta "romper" lazos.
Un Saludo,
Xevi.
"Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje
news:[email=49a672e8@svctag-j7w3v3j....]49a672e8@svctag-j7w3v3j....[/email]
> Xevi.
> Solucionado. Funciona bien. El unico inconveniente es cuando llego a un
> ComboBox, y vengo entusiasmado pulsando tecla ABAJO, se me cambia el volar
> que tenia el combo y puede ocacionar un lio en los datos si no tengo
> cuidado. No se si le lo voy a en produccion.
>
> Gracias.
>
> Juan
>
> "Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
> news:49a6501f$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Claudio,
>>
>> Supongo que lo que quieres es poder ir al anterior o siguiente Edit al
>> pulsar las flechas arriba o abajo.
>>
>> Puedes añadir este código en tu aplicación, me lo escribieron hace ya
>> muuuucho tiempo...
>>
>> CLASS TEdit FROM XEdit
>> PUBLISHED:
>> PROPERTY lAutoSelect INIT asSELECTALL
>>
>> METHOD WMKeyDown( nKey, nFlags )
>> METHOD WMKillFocus( wParam, lParam ) INLINE Super:WMKillFocus( wParam,
>> lParam ), ::lInsert := .T., 0
>> 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
>>
>>
>> A mi me está funcionando perfectamente, espero que sea lo que necesitas.
>>
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> "claudio" <santos@transbank.com.br> escribió en el mensaje
>> news:[email=49a577d3@svctag-j7w3v3j....]49a577d3@svctag-j7w3v3j....[/email]
>>> Tenho uma aplicação onde o usuario quer se mover com SETAS PARA
>>> CIMA,PARA BAIXO.
>>>
>>>
>>
>>
>
>

Como fao para navegar com as TECLAS DE SETA, PARA CIMA, PARA BAIXO.???

Publicado: Jue Feb 26, 2009 2:52 pm
por jrcsistemas
Xevi.
Lo soluciono haciendo que bajen con enter, tanto en edit como en combo. Yo
programo en clipper hace 21 años y estoy haciendo mi primer sistema en
Xalier con MySQL. Sin conocer programacion de objetos ni servidores de bases
de datos. Te imaginaras como estoy luchando. Como extraño el brief con
dbrief cada ves que abro el IDE de xailer!!! Las teclas rapidas, la
identacion automatica, marcar por bloques sin tener que usar el mouse,
copiar una linea o bloques con un simple + .. y un largo etc...
Pero estoy obligado por mi mismo a hacer el cambio.. Suerte
Saludos
Juan
"Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
news:49a687af$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Juan,
>
> La verdad es que tienes razón, cuando entre Edits tenemos Combos... pues
> se nos va la mano con tanto flecha arriba/abajo, pero aparte de esto...
> los usuarios finales te agradecen que puedan canviar de foco con las
> flechas, salvando este inconveniente,... recuerda que "antes" de Xailer,
> yo programaba en Clipper MSDOS... y cuesta "romper" lazos.
>
> Un Saludo,
> Xevi.
>
>
> "Juan Castañeda" <jrcsistemas@speedy.com.ar> escribió en el mensaje
> news:[email=49a672e8@svctag-j7w3v3j....]49a672e8@svctag-j7w3v3j....[/email]
>> Xevi.
>> Solucionado. Funciona bien. El unico inconveniente es cuando llego a un
>> ComboBox, y vengo entusiasmado pulsando tecla ABAJO, se me cambia el
>> volar que tenia el combo y puede ocacionar un lio en los datos si no
>> tengo cuidado. No se si le lo voy a en produccion.
>>
>> Gracias.
>>
>> Juan
>>
>> "Xevi" <xevicomas_quitar_esto@gmail.com> escribió en el mensaje
>> news:49a6501f$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Claudio,
>>>
>>> Supongo que lo que quieres es poder ir al anterior o siguiente Edit al
>>> pulsar las flechas arriba o abajo.
>>>
>>> Puedes añadir este código en tu aplicación, me lo escribieron hace ya
>>> muuuucho tiempo...
>>>
>>> CLASS TEdit FROM XEdit
>>> PUBLISHED:
>>> PROPERTY lAutoSelect INIT asSELECTALL
>>>
>>> METHOD WMKeyDown( nKey, nFlags )
>>> METHOD WMKillFocus( wParam, lParam ) INLINE Super:WMKillFocus( wParam,
>>> lParam ), ::lInsert := .T., 0
>>> 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
>>>
>>>
>>> A mi me está funcionando perfectamente, espero que sea lo que necesitas.
>>>
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>>
>>> "claudio" <santos@transbank.com.br> escribió en el mensaje
>>> news:[email=49a577d3@svctag-j7w3v3j....]49a577d3@svctag-j7w3v3j....[/email]
>>>> Tenho uma aplicação onde o usuario quer se mover com SETAS PARA
>>>> CIMA,PARA BAIXO.
>>>>
>>>>
>>>
>>>
>>
>>
>
>