KeyDown y F10

[carloskds]

no he sido capaz de interceptar las pulsaciones de teclas F2...F12
he usado el evento OnKeyDown, OnKeyUp, OnChar, del form o del control browse, pero no me los detecta, si me detecta teclas alfanuméricas sin problemas...
gracias

[ignacio]

Hola,

Funcionado sin problemas en TForm:OnKeyDown

Saludos

[carloskds]

Ignacio, en este código me funciona del f4 a f9 bien, f10 no reacciona, F11 y 12 tambien funcionan bien.

Código: Seleccionar todo

METHOD FormKeyDown( oSender, nKey, nFlags ) CLASS TFormClientC
   DO CASE
   CASE nKey==VK_F4
      MsgInfo("Presiono F4")
   CASE nKey==VK_F5
      MsgInfo("Presiono F5")
   CASE nKey==VK_F6
      MsgInfo("Presiono F6")
   CASE nKey==VK_F7
      MsgInfo("Presiono F7")
   CASE nKey==VK_F8
      MsgInfo("Presiono F8")
   CASE nKey==VK_F9
      MsgInfo("Presiono F9")
   CASE nKey==VK_F10
      MsgInfo("Presiono F10")
   CASE nKey==VK_F11
      MsgInfo("Presiono F11")
   CASE nKey==VK_F12
      MsgInfo("Presiono F12")
   ENDCASE
RETURN Nil

he hecho un pequeño modulo en harbour puro, para descartar problemas del teclado, y ahi F10 me retorna -9, obiamente bajo consola, se que en windows tendria otro codigo...

Código: Seleccionar todo

   #include "Inkey.ch"

   PROCEDURE Main
      LOCAL nEvent
      CLS
      ? "Waiting for events (press ESC to quit)"
      SET EVENTMASK TO INKEY_ALL

      DO WHILE Lastkey() <> K_ESC
         nEvent := Inkey(0)
         @ 0, 0 CLEAR TO 1, MaxCol()

         @ 0,1 SAY "Key Code:"
         ?? nEvent
      ENDDO

   RETURN

[carloskds]

veo que en otras lib gui, tampoco me funciona el F10. asi que no es xailer. disculpa la molestia ignacio.
de momento no es importante.

[jfgimenez]

Carlos,

la tecla F10 la tiene "reservada" windows para abrir el menú de la ventana, y por eso no se recibe por WM_KEYDOWN. Si necesitas capturar su pulsación tendrás que interceptar el mensaje WM_SYSCOMMAND. Algo así:

Código: Seleccionar todo

METHOD WMSysCommand( wParam, lParam ) CLASS TForm1
   IF wParam == SC_KEYMENU
      MsgInfo( "Se ha pulsado F10" )
      RETURN 0
   ENDIF
RETURN ::Super:WMSysCommand( wParam, lParam )

[carloskds]

Gracias José.
Muy claro.