enviar una tecla desde un boton

[José Camilo]

Buenos dias!!!
Necesito que al oprimir un boton se mande la señal de la tecla ESCAPE.
Probe con CHR(27) y no la envia.
Se puede? Como?
Gracias.

[claudio.leiva]

buen dia
para que necesitas esa acción?

[José Camilo]

Hola Claudio. Gracias por tu tiempo.
resulta que tengo la carga de una factura en la que tengo varios items, los cuales los voy completando los datos ( cantidad , precio, etc. ) con un bucle pero si en el medio de la carga deseo cancelar la misma no puedo hacerlo por las validaciones de los campos, tambien resulta que si oprimo la tecla escape y luego el boton de salida hace lo que quiero pero no logro que lo haga desde el boton mismo sin tener que oprimir ESCAPE previamente. Me explico.? pense que al oprimir el boton podia mandar la tecla escape, pero no logro hacerlo.
Nuevamente gracias por tu tiempo.

José Camilo

[claudio.leiva]

puedes poner parte del codigo.. donde haces esa lo comentado.

[karinha]

Algo asi?

Code: Select all  Expand view  RUN

   LOCAL nKey := VK_RETURN

   REDEFINE BUTTONBMP oSaida ID 302 OF oDlg ;
      ACTION( nKey := VK_ESCAPE, oDlg:End() ) CANCEL


   IF nKey == VK_ESCAPE .OR. GETKEYSTATE( VK_ESCAPE ) .OR. ;
              LASTKEY() = VK_ESCAPE

      // ...
   ELSE
      // ...
   ENDIF

 

Puede usar el bKeyDown() también.

Regards, saludos.

[José Camilo]

Claudio. Buenas noches. no tengo problemas en pasar el fuente, solo que tiene validaciones anidadas y seria muy engorroso y largo. Lo solucione con el uso de una variable (verdaderamente simple) Muchas Gracias por tu tiempo.

Joao. Como dije arriba, lo solucione con una variable. Igual Gracias por tu tiempo.

José Camilo