HMGforum.com

Code: Select all

...
   CASE nMsg == WM_HOTKEY

      // Process HotKeys

      i := AScan ( _HMG_aControlIds , wParam )

      IF i > 0
         IF _HMG_aControlType [i] == "HOTKEY"
            IF _HMG_aControlParentHandles [i] == GetActiveWindow() .OR. _HMG_GlobalHotkeys == .T.
               IF _DoControlEventProcedure ( _HMG_aControlProcedures [i] , i )
                  RETURN 0
               ENDIF
            ENDIF
         ENDIF
      ENDIF
...

Code: Select all

#include "hmg.ch"

Function Main

   DEFINE WINDOW Form_1 ;
      AT 0,0 ;
      WIDTH 500 HEIGHT 300 ;
      TITLE 'Press ALT+F9' ;
      MAIN

      ON KEY ALT+F9 ACTION MsgInfo ("HotKey Action")

   END WINDOW


   #define WM_HOTKEY      0x0312
   CREATE EVENT PROCNAME AllHotKey() MSG WM_HOTKEY
   
   Form_1.Center()
   Form_1.Activate()
Return Nil


// If the WM_HOTKEY message was generated by a system-defined hot key, wParam will be one of the following values:
#define IDHOT_SNAPWINDOW  (-1)   // The "snap desktop" hot key was pressed
#define IDHOT_SNAPDESKTOP (-2)   // The "snap window" hot key was pressed

#define MOD_ALT       1
#define MOD_CONTROL   2
#define MOD_SHIFT     4
#define MOD_WIN       8


Function AllHotKey()
LOCAL cFormName := ""
LOCAL hWnd   := EventHWND()
LOCAL wParam := EventWPARAM()
LOCAL lParam := EventLPARAM()

   GetFormNameByHandle    ( hWnd, @cFormName )
   ID     := wParam
   VK     := HIWORD (lParam)
   MOD_VK := LOWORD (lParam)

   IF MOD_VK == MOD_ALT
      MOD_VK := "ALT"
   ELSEIF MOD_VK == MOD_CONTROL
      MOD_VK := "CONTROL"
   ELSEIF MOD_VK == MOD_SHIFT
      MOD_VK := "SHIFT"
   ELSEIF MOD_VK == MOD_WIN
      MOD_VK := "WIN"
   ENDIF

   MsgInfo ({ "HotKey --> ID: ",ID ,"   FormName: "+cFormName, "   Mod: ",MOD_VK ,"   VirtualKey: ",VK })

Return NIL