En un xBrowse necesito evaluar la tecla Escape. He probado bKeyDown con Key ==VK_ESCAPE pero nada de nada. ¿Hay alguna forma de hacerlo?
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Board index FiveWin para Harbour/xHarbour Tecla ESCAPE y XBROWSE
Manuel Aranda wrote: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í:
oMiXBrowse:bKeyChar := {| nKey , nflags | If( nKey = VK_ESCAPE, oMiVentana:End(), Nil ) }A mi me ha funcionado.
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
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:
Saludos,
Adhemar
Si no hazlo asi:
oBrw:bKeyDown:={ |nKey| iif( nKey=VK_ESCAPE,oDlg:End(), ) }Saludos,
Adhemar
Saludos,
Adhemar Cuéllar
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.....
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Manuel Aranda wrote: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:bKeyDown := { |nKey| <yourcode>(nKey) }
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Haciendolo así:
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)
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)
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Not
Correct:
oLbx:oVentPrinc:bKeyDown := { |nKey| IIf( nKey = VK_ESCAPE, MsgInfo("Holaaaa"), )}Correct:
oLbx:oWnd:bKeyDown := { |nKey| IIf( nKey = VK_ESCAPE, MsgInfo("Holaaaa"), )}Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Sr. Rao, muchas gracias, ha funcionado perfectamente.
Un saludo,
Manuel
xH 1.2.3, FWH 26.06 32 bits, BC++ 7.7, PellesC
Hace 2 dias que estoy tratando de que evalúe ESCAPE!...."agarra los libros que no queman"... decia mi viejo!
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Chaco - Argentina