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:
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.
Espero que le sirva a alguien .
Rolando
Cochabamba, Bolivia
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:
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.
:
case nKey == VK_F3 .AND. ::lActionOnF3
Eval(:bAction, Self)
Return 0
:Espero que le sirva a alguien .
Rolando
Cochabamba, Bolivia