DEFINE WINDOW oWndM TITLE 'PCP'
oWndM:bKeyDown:={| nKey | Testatecla(nKey)}
ACTIVATE WINDOW oWndM MAXIMIZED
// para poder chamar a tecla F1 com outra função que não o Help
FUNCTION HelpIndex()
Return NIL
Function TestaTecla(nKey)
SetKey(VK_F1,{|| FUNCAO1()})
SetKey(VK_F2,{|| FUNCAO2()})
SetKey(VK_F3,{|| FUNCAO3()})
SetKey(VK_F4,{|| FUNCAO4()})
SetKey(VK_F5,{|| FUNCAO5()})
If nKey=VK_F6 .and. GetKeyState(VK_CONTROL)
FUNCAO6()
ENDIF
RETURN(0)
*
FUNCTION FUNCAO1()
?'FUNCAO1'
RETURN(.T.)
FUNCTION FUNCAO2()
?'FUNCAO2'
RETURN(.T.)
FUNCTION FUNCAO3()
?'FUNCAO3'
RETURN(.T.)
FUNCTION FUNCAO4()
?'FUNCAO4'
RETURN(.T.)
FUNCTION FUNCAO5()
?'FUNCAO5'
RETURN(.T.)
FUNCTION FUNCAO6()
?'FUNCAO6'
RETURN(.T.)
:* Solução dada pelo Marcelo no Fórum da Virtual Objects...
:xau Obrigada Marcelo...!!!