FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Desativar tecla F10 do windows
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Desativar tecla F10 do windows
Posted: Wed Mar 24, 2010 07:38 PM

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

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desativar tecla F10 do windows
Posted: Thu Mar 25, 2010 12:25 PM
Code (fw): Select all Collapse
#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

:-) :-) :-) :-) :-) :-) :-)
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: Desativar tecla F10 do windows
Posted: Thu Mar 25, 2010 01:09 PM

João,

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

Um abraço

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desativar tecla F10 do windows
Posted: Thu Mar 25, 2010 01:17 PM

O titulo do seu tópico é:

DESATIVAR TECLA F10 DO WINDOWS.

Aguarde.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Desativar tecla F10 do windows
Posted: Thu Mar 25, 2010 01:22 PM
Code (fw): Select all Collapse
#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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: Desativar tecla F10 do windows
Posted: Thu Mar 25, 2010 05:04 PM

obrigado

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Continue the discussion