oJump y los buttons

[goosfancito]

Antonio,

Pongo aca el código asi me explico mejor. aca los oJump funcionan, pero no puedo hacer click en los button. en este caso, como hago para que funcione el oJump y a parte el click del button?

Gracias

Code: Select all  Expand view  RUN

FUNCTION main()

   LOCAL oDlg, ;
         oDatos := Array( 10 ), ;
         vDatos := Array( 10 ), ;
         oBtns  := Array( 2 )

   oDlg:= Dialogo( oDatos, vDatos, oBtns )
   Inicializar( oDatos, vDatos, oBtns )

   //----------( Controlo los Get´s )----------

   oDatos[1]:bValid:= { || oDatos[1]:oJump:= oDatos[ vDatos[1] ], .T. }
   oDatos[2]:bValid:= { || oDatos[2]:oJump:= oDatos[ vDatos[2] ], .T. }
   oDatos[3]:bValid:= { || oDatos[3]:oJump:= oDatos[ vDatos[3] ], .T. }
   oDatos[4]:bValid:= { || oDatos[4]:oJump:= oDatos[ vDatos[4] ], .T. }
   oDatos[5]:bValid:= { || oDatos[5]:oJump:= oDatos[ vDatos[5] ], .T. }
   oDatos[6]:bValid:= { || oDatos[6]:oJump:= oDatos[ vDatos[6] ], .T. }
   oDatos[7]:bValid:= { || oDatos[7]:oJump:= oDatos[ vDatos[7] ], .T. }
   oDatos[8]:bValid:= { || oDatos[8]:oJump:= oDatos[ vDatos[8] ], .T. }

   ACTIVATE DIALOG oDlg Centered

   RETURN ( NIL )

//------------------------------------------------------------------------------

FUNCTION Inicializar( oDatos, vDatos, oBtns )

   vDatos[1]:= 3
   vDatos[2]:= 7
   vDatos[3]:= 8
   vDatos[4]:= 6
   vDatos[5]:= 2
   vDatos[6]:= 5
   vDatos[7]:= 3
   vDatos[8]:= 6

   oDatos[1]:refresh()
   oDatos[2]:refresh()
   oDatos[3]:refresh()
   oDatos[4]:refresh()
   oDatos[5]:refresh()
   oDatos[6]:refresh()
   oDatos[7]:refresh()
   oDatos[8]:refresh()

   RETURN ( NIL )

//------------------------------------------------------------------------------

FUNCTION Dialogo( oDatos, vDatos, oBtns )

   LOCAL oDlg

   DEFINE DIALOG oDlg RESOURCE "DLG_PARTICULAR"

      //----------( Get´s )----------

      REDEFINE GET oDatos[1] VAR vDatos[1] ID 101 OF oDlg
      REDEFINE GET oDatos[2] VAR vDatos[2] ID 102 OF oDlg
      REDEFINE GET oDatos[3] VAR vDatos[3] ID 103 OF oDlg
      REDEFINE GET oDatos[4] VAR vDatos[4] ID 104 OF oDlg
      REDEFINE GET oDatos[5] VAR vDatos[5] ID 105 OF oDlg
      REDEFINE GET oDatos[6] VAR vDatos[6] ID 106 OF oDlg
      REDEFINE GET oDatos[7] VAR vDatos[7] ID 107 OF oDlg
      REDEFINE GET oDatos[8] VAR vDatos[8] ID 108 OF oDlg

      REDEFINE Checkbox oDatos[9]  VAR vDatos[9]  ID 109 OF oDlg
      REDEFINE Checkbox oDatos[10] VAR vDatos[10] ID 110 OF oDlg

      //----------( Botones )----------

      REDEFINE BUTTON oBtns[1] ID 301 OF oDlg
      REDEFINE BUTTON oBtns[2] ID 302 OF oDlg

   RETURN ( oDlg )

[Antonio Linares]

Prueba a usar la cláusula CANCEL en los buttons

[goosfancito]

Prueba a usar la cláusula CANCEL en los buttons

Al hacer esto, luego ya deja de funcionar el jump... aclaro con el mouse, con el teclado funciona.

[fleal]

¿Ya probaste a poner un mensaje en el action del botón?. Pregunto por que no veo que tenga un action entonces.... simplemente no hace nada.


REDEFINE BUTTON oBtns[1] ID 301 OF oDlg ;
ACTION Hola()


static function Hola()
?"Si aparece este mensaje. Si funciona"
return nil