In a TGet, make the cursor jump one position to thr right

[Rafael Clemente]

Hi everybody

In a TGet(), how can I make the cursor step one position to the right. I have tried oGet:PostMsg( WM_KEYDOWN, VK_RIGHT, 0 ) but it does not seem to work
Any suggestion? Thanks

Rafael

[Rafael Clemente]

It was just a matter of adding SysRefresh() !!!
Rafael

[Antonio Linares]

Rafael,

You may try:

Code: Select all  Expand view

oGet:SetPos( oGet:nPos + 1 )

[Antonio Linares]

It was just a matter of adding SysRefresh() !!!

good

[goosfancito]

It was just a matter of adding SysRefresh() !!!

good

Antonio, este codigo

Code: Select all  Expand view

    redefine get odatos[1]...
    ...

    redefine get odatos[10]...

    oDatos[1]:bValid:= { || oDatos[1]:SetPos( 10 ), SysRefresh(), .T. }

Cuando valida oDatos[1], salta al get en la posicion 10? aca no me esta funcionado.

[Antonio Linares]

Gustavo,

Si el foco se va a ir a otro control, prueba a hacer:

oGet:nPos := 10

desde el VALID

[goosfancito]

Gustavo,

Si el foco se va a ir a otro control, prueba a hacer:

oGet:nPos := 10

desde el VALID

Code: Select all  Expand view

oDatos[1]:bValid:= { || oDatos[1]:nPos:= 5, SysRefresh(), .T. }

No pasa nada... porque?

[Antonio Linares]

Cuando vuelve el foco al Get, el cursor no va a otra posición ?

Cambia tambien oGet:oGet:Pos := 10