Sugerencia: Activar bAction de tGet con F3

[RSalazarU]

Antonio:

La clase TGet deberia tener un acelerador en el teclado que ejecute ::bAction de la clase TGet.

Para tener esta opcion en mis programas yo hago los siguiente:

Code: Select all

   oCtrl:bKeyDown := {|nK, nF, oGet|if(nK = VK_F3, (Eval(oGet:bAction,oGet),0), NIL)}
 

Esto funciona perfecto.

Si embargo, en la clase TGET, esto podria estar por defecto y bajo alguna DATA condicional.
Asi entonces en el metodo ::KeyDown() se podria insertar este codigo.

Code: Select all

        :
        case nKey == VK_F3 .AND. ::lActionOnF3
               Eval(:bAction, Self)
               Return 0
       :
 

Espero que le sirva a alguien .

Rolando
Cochabamba, Bolivia