Capturar tecla ESC y RETURN en TTreeview

[jmartial]

Hola,

Pues eso, que no sé como hacer que con intro en un ttreeview sea como aceptar o con ESC me pueda salir o ejecutar una acción.

No sé como capturar estas teclas en un tree. ¿ Se puede hacer ?

[horacio]

Fijate si te sirve

viewtopic.php?f=6&t=29404

Saludos

[jmartial]

Horacio,
¿Pero como capturo return y Esc?

[carlos vargas]

Code: Select all | Expand

oTree:bKeyDown := {|n| ProcKeyTree(n) }
...
function Prockey(n)
 do case 
  case n==VK_ESC
   ...
   return 1
  case n==VK_RETURN
    ...
    return 1
 enddo
return nil
 

[jmartial]

Hola Carlos,

¿ Ese código lo has probado con un ttreeview ?

Porque yo pongo otree:bkeydown :={|nkey| msginfo(nkey) }
Y nunca muestra nada con Enter ni Esc.

[karinha]

http://fivetechsupport.com/forums/viewtopic.php?f=3&t=18109&start=0

[Antonio Linares]

Joaquin,

Prueba a implementar el método KeyDown() en la clase TTreeView

[jmartial]

Antonio,

Esta es la única forma en la que he conseguido ejecutar bKeydown. Pero no estoy muy seguro de que sea correcto.

He cambiado este método en la clase Ttreeview:

Code: Select all | Expand

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TTreeView2

   local oItem
   
   do case
     
      case nMsg == WM_CHAR 
           if nWParam == VK_RETURN
              return 1
           endif
     
      case nWParam == VK_RETURN .or. nWParam == VK_ESCAPE
           if ::bKeyDown != nil
              return Eval( ::bKeyDown, nWParam, 0, Self )
           endif

   endcase
   
return ::Super:HandleEvent( nMsg, nWParam, nLParam )

[Antonio Linares]

Joaquín,

Para mantener la lógica de FiveWin, lo has intentado asi ?

case nMsg == WM_KEYDOWN
...

ó

case nMsg == WM_CHAR

[jmartial]

Antonio,

Ese es el principal problema, al pulsar Intro, se recibe nMsg==135

Que según veo, corresponde al define WM_GETDLGCODE. No recibe ni Keydown ni Char.

No sé como habría que hacerlo correctamente para capturar Return y Esc.

[jmartial]

Antonio,

Dime si así sería correcto:

En la definición de los métodos de la clase:

Code: Select all | Expand

METHOD GetDlgCode( nLastKey ) INLINE DLGC_WANTALLKEYS
 

Y así el HandleEvent, y ya captura:

Code: Select all | Expand

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TTreeView

   local oItem
   
   do case
      case nMsg == WM_KEYDOWN
           if ::bKeyDown != nil
              return Eval( ::bKeyDown, nWParam, 0, Self )
           endif
           return 0
   endcase
   
return ::Super:HandleEvent( nMsg, nWParam, nLParam )
 

¿Me puedes explicar que hace el método GetDlgCode( nLastKey ) ?

[Antonio Linares]

Joaquín,

Todo ok, lo único que cambiaria es esto:

Code: Select all | Expand

      case nMsg == WM_KEYDOWN
                       return ::KeyDown( nWParam, nLParam ) 
 

De esta forma el código queda más estructurado y además una clase que derivase de esta podría facilmente redefinir la funcionalidad del método KeyDown(). De dejar tu código ahi, obligarias a redefinir HandleEvent(). No es realmente necesario pero es la forma correcta de hacerlo

El método GetDlgCode() es la respuesta a un mensaje que envía Windows para interrogar al control acerca de las teclas que quiere procesar. Al devorlver DLGC_WANTALLKEYS el control responde que las quiere todas.

[jmartial]

Antonio,

Como me ha funcionado perfectamente y me captura tanto Return como ESCAPE, es con los siguientes pasos:

- Quitamos el método HandleEvent, parece ser que no sirve para nada, se usaría el del padre.

- Se redefinen los siguientes métodos en la definición de la clase:

Code: Select all | Expand

   METHOD GetDlgCode( nLastKey ) INLINE DLGC_WANTALLKEYS
   METHOD KeyDown( nKey, nFlags )
 

Y se redefine el método Keydown como sigue:

Code: Select all | Expand

METHOD KeyDown( nKey, nFlags ) CLASS TTreeView

   if ::bKeyDown != nil
      return Eval( ::bKeyDown, nKey, nFlags, Self )
   endif

return ::Super:KeyDown( nKey, nFlags )

 

Si ves algo más limpio o algo que no guarde la lógica de eventos de FW, me lo dices, pero así se puede definir bKeyDown para capturar
VK_RETURN y VK_ESCAPE, además de funcionar las teclas del TreeView.

[Antonio Linares]

Joaquin,

correcto, gracias