¿hay alguna forma de evitar que cuando se pulse la tecla F1, el sistema muestre el mensaje "no hay ayuda definida para esa tecla"?.
Yo utilizo este código que detectar la pulsación de las teclas en cualquier parte del programa para activar una calculadora residente y una agenda, y lo que me gustaría es que cuando pulse F1 ejecutara mi programa de ayuda sin mostrar el mensaje del windons....
Alguna idea..
Pd. Como ultima opción puedo usar el ON KEY F1 en cada procedimiento pero es un poco rollo.
Saludos y vamos con esa cervecita..
Code: Select all
//-----------------------------------------------------------------
//---> FUNCION PARA ACTIVA LA AGENDA Y LA CALCULADORA.
//-----------------------------------------------------------------
Function MyFuncKey ()
LOCAL nHWnd:=EventHWND ()
LOCAL nMsg:=EventMSG ()
LOCAL nWParam:=EventWPARAM ()
LOCAL nLParam:=EventLPARAM ()
LOCAL i := ASCAN ( _HMG_SYSDATA [3] , nHWnd )
LOCAL dfe2:= dFecha_hoy
DO CASE
CASE HMG_GetLastVirtualKeyDown () == VK_F1
HMG_CleanLastVirtualKeyDown(); _Ayuda(cFichHelp)
CASE HMG_GetLastVirtualKeyDown () == VK_F3
HMG_CleanLastVirtualKeyDown(); _MAINCALC()
CASE HMG_GetLastVirtualKeyDown () == VK_F4
HMG_CleanLastVirtualKeyDown(); _AGENDA()
dFecha_hoy:=dfe2
Refres_Memop(2)
CASE HMG_GetLastVirtualKeyDown () == VK_ESCAPE
HMG_CleanLastVirtualKeyDown(); lSalPitando:=.F.
CASE HMG_GetLastVirtualKeyDown () == VK_UP .AND. i > 0 .AND. ( _HMG_SYSDATA [1] [i] != "BROWSE" .AND. _HMG_SYSDATA [1] [i] != "TREE")
HMG_CLEANLASTVIRTUALKEYDOWN() ; HMG_PRESSKEY(VK_SHIFT,VK_TAB)
CASE HMG_GetLastVirtualKeyDown () == VK_DOWN .AND. i > 0 .AND. ( _HMG_SYSDATA [1] [i] != "BROWSE".AND. _HMG_SYSDATA [1] [i] != "TREE")
HMG_CLEANLASTVIRTUALKEYDOWN() ; HMG_PRESSKEY(VK_TAB)
ENDCASE
RETURN