FiveTech Software tech support forums

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

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.