Page 1 of 1

Desativar tecla F10 do windows

PostPosted: Wed Mar 24, 2010 7:38 pm
by MGA
Amigos,

Alguem sabe se é possível desativar a tecla F10 do windows?

Digo isso porque estou enfrentando problemas no meu sistema (DIALOG, TSBROWSE, etc) não funciona o F10.

Obrigado

Re: Desativar tecla F10 do windows

PostPosted: Thu Mar 25, 2010 12:25 pm
by karinha
Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Test"

   SetKey( VK_F10, { || NIL } )

   SetKey( VK_F2, { || MsgInfo( "'F2' is beeing pressed" ) } )

   oWnd:bKeyDown = { | nKey | MsgInfo( "Down: " + Str( nKey ) ) }
   oWnd:bKeyChar = { | nKey | MsgInfo( "Char: " + Str( nKey ) ) }


   ACTIVATE WINDOW oWnd

return nil
 

:D :) :( :o :P :evil: :oops:

Re: Desativar tecla F10 do windows

PostPosted: Thu Mar 25, 2010 1:09 pm
by MGA
João,

Obrigado por responder, porem não funcionou. Compilei o seu exemplo e o F10 não responde!

Um abraço

Re: Desativar tecla F10 do windows

PostPosted: Thu Mar 25, 2010 1:17 pm
by karinha
O titulo do seu tópico é:

DESATIVAR TECLA F10 DO WINDOWS.

Aguarde.

Re: Desativar tecla F10 do windows

PostPosted: Thu Mar 25, 2010 1:22 pm
by karinha
Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Test"

   //-> Tecla Reservada Para Windows, uso nao recomendavel.
   SetKey( VK_F10, { || MsgInfo( "'F10' is beeing pressed-Reserved for Windows" ) } )

   SetKey( VK_F2, { || MsgInfo( "'F2' is beeing pressed" ) } )

   oWnd:bKeyDown = { | nKey | MsgInfo( "Down: " + Str( nKey ) ) }
   oWnd:bKeyChar = { | nKey | MsgInfo( "Char: " + Str( nKey ) ) }


   ACTIVATE WINDOW oWnd

return nil
 

Re: Desativar tecla F10 do windows

PostPosted: Thu Mar 25, 2010 5:04 pm
by MGA
obrigado