Ayuda con SETKEY

[rolando]

Hola Amigos,

Pretendo usar la función SETKEY() y lo hace bién al definirla así:

oDlg:bGotFocus:= SetKey( VK_F12, { |nKey| CopioRegistro(recno()) })

Esto lo uso en un diálogo NOWAIT y por eso, para que cuando el diálogo no esté en foco, puse:

oDlg:bLostFocus:=SetKey( VK_F12, nil )

Pero no resulta como esperaba ya que al abrir este diálogo NOWAIT, no se el porque ejecuta al instante mi función CopioRegistro(recno()) que debiera ejecutarse únicamente al presionar F12.

Si le saco el:

oDlg:bLostFocus:=SetKey( VK_F12, nil ),

Ahí funciona bién la F12 pero queda asignada permanentemente a esa función y mi deseo es que cuando se cierre el dialog NOWAIT o este pierda el foco, esta tecla F12 no haga nada.

Gracias.

Rolando

[Daniel Garcia-Gil]

es comun que esto suceda... creo que a todos nos a pasado alguna vez oDlg:bLostFocus y oDlg:bGotFocus, se les debe asignar bloques de codigo, por eso tiene esa "b" adelante...
hazlo asi:

Code: Select all  Expand view  RUN

oDlg:bGotFocus  := {|| SetKey( VK_F12, { |nKey| CopioRegistro(recno()) }) }
oDlg:bLostFocus := {|| SetKey( VK_F12, nil ) }


[Ruben D. Fernandez]

Rolando:

Quizás puedas hacerlo en el Valid de dialogo.
Valid(SaleDialogo())


Function SaleDailogo()
SetKey( VK_F12, nil )

Return(.t.)

Espero te sirva.

Saludos

Ruben Fernandez.

[rolando]

Gracias por responder,

Daniel, si hago como tu dices, la F12 no es detectada. No se si será porque todos los dialogs que uso son NOWAIT o qué pero no funciona como tu dices.

Rubén, lo cambié en el valid y funciona bién cuando se cierra ese dialog la tecla F12 queda "NIL", el problema está en que no puedo hacer que quede "NIL" cuando el dialog piede el foco.

Gracias.

Rolando

[Daniel Garcia-Gil]

tienes que declararla fuera del oDlg:bGotFocus y dentro del oDlg:bGotFocus
SetKey( VK_F12, { |nKey| CopioRegistro(recno()) })

y

oDlg:bGotFocus := {|| SetKey( VK_F12, { |nKey| CopioRegistro(recno()) }) }

[rolando]

No puedo hacerlo funcionar, pero lo solucioné asignando la tecla F12 a:

oDlg:bKeyDown := {|nK|if(nK<>27, (if(nk<>VK_F12 , (if(ControlU(nk , @oIcon) , oDlg:refresh() , )) ,;
copioregistro(recno())) ) , oDlg:end() )}

y así se acabó my problem.

Saludos

Rolando