desplazamiento por gets del dialogo:Up() y :Down() o por TAB

[sgisoft]

Hola:

Me gustaria asignar dos botones, Up y Down, para que al pulsar sobre ellos se desplacen por los gets del dialogo, del mismo modo que oListbox:GoUp() y oListBox:GoDown(), pero estos metodos no estan definidos. También me valdía que surtiera el mismo efecto que pulsar la tecla TAB. Muchas gracias.

Un saludo,

Pablo

[Antonio Linares]

Pablo,

Puesto que esos botones al pulsarlos tomarían el foco, entonces hay que usar el dato oJump:

Code: Select all  Expand view

   n = 1 // nº de orden del primer GET

   ... BUTTON oBtn1 ... ACTION If( n > 1, oBtn1:oJump := oDlg:aControls[ n-- ], ) VALID .t.

   ... BUTTON oBtn2 ... ACTION If( n < Len( oDlg:aControls ), oBtn2:oJump := oDlg:aControls[ n++ ],) VALID .t.