Tecla ESCAPE y XBROWSE

[Manuel Aranda]

En un xBrowse necesito evaluar la tecla Escape. He probado bKeyDown con Key ==VK_ESCAPE pero nada de nada. ¿Hay alguna forma de hacerlo?

[FiveWiDi]

En un xBrowse necesito evaluar la tecla Escape. He probado bKeyDown con Key ==VK_ESCAPE pero nada de nada. ¿Hay alguna forma de hacerlo?

Hola Manuel,

Pruébalo así:

Code: Select all  Expand view  RUN

oMiXBrowse:bKeyChar   := {| nKey , nflags | If( nKey = VK_ESCAPE, oMiVentana:End(), Nil ) }

A mi me ha funcionado.

[acuellar]

Manuel, la tecla ESC viene activada por defecto para salir del dialogo del xBrowse, a no ser que este desactivada con SetDialogEsc(.F.)

Si no hazlo asi:

Code: Select all  Expand view  RUN

  oBrw:bKeyDown:={ |nKey| iif( nKey=VK_ESCAPE,oDlg:End(), )  }
 

Saludos,

Adhemar

[Manuel Aranda]

Gracias a los dos, Carlos y Adhemar:

Funciona perfectamente vuestro código cuando se trata de un diálogo, pero el xbrowse está en una ventana windows y no en un diálogo y de esta forma no funciona, ignora completamente la tecla ESCAPE, no así otras como ESPACIADOR, etc.....

[nageswaragunupudi]

Gracias a los dos, Carlos y Adhemar:

Funciona perfectamente vuestro código cuando se trata de un diálogo, pero el xbrowse está en una ventana windows y no en un diálogo y de esta forma no funciona, ignora completamente la tecla ESCAPE, no así otras como ESPACIADOR, etc.....

For trapping ESC key, please use oBrw:oWnd:bKeyDown := { |nKey| <yourcode>(nKey) }

[Manuel Aranda]

Haciendolo así:

Code: Select all  Expand view  RUN

oLbx:oVentPrinc:bKeyDown := { |nKey| IIf( nKey = VK_ESCAPE, MsgInfo("Holaaaa"), )}
 

Este es el mensaje de error que obtengo:

Error description: Error BASE/1004 Message not found: TXBROWSE:OVENTPRINC

Stack Calls
===========
Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR(166)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:OVENTPRINC(7546)

[nageswaragunupudi]

Not

Code: Select all  Expand view  RUN

oLbx:oVentPrinc:bKeyDown := { |nKey| IIf( nKey = VK_ESCAPE, MsgInfo("Holaaaa"), )}

Correct:

Code: Select all  Expand view  RUN

oLbx:oWnd:bKeyDown := { |nKey| IIf( nKey = VK_ESCAPE, MsgInfo("Holaaaa"), )}

[Manuel Aranda]

Sr. Rao, muchas gracias, ha funcionado perfectamente.

[MarioG]

Hace 2 dias que estoy tratando de que evalúe ESCAPE!...."agarra los libros que no queman"... decia mi viejo!