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)}
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
:
Rolando
Cochabamba, Bolivia