Если вызываю меню по клику на пустом месте окна - действие происходит. Если по клику на кнопке - нет.
Требуется чтобы срабатывало везде.
Требуется чтобы срабатывало везде.
Код:
#include <GuiMenu.au3>
#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
;Global Enum $idOpen = 1000, $idSave, $idInfo
Global $idOpen
_Main()
Func _Main()
; Создаёт GUI
GUICreate("Menu", 400, 300)
GUISetState()
$iButton = GUICtrlCreateButton("OK", 50, 70, 70, 28)
; Регистрация обработчика сообщений
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUIRegisterMsg($WM_CONTEXTMENU, "WM_CONTEXTMENU")
; Цикл выполняется, пока окно не будет закрыто
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
; Обработчик сообщений WM_COMMAND
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $ilParam
Switch $iwParam
Case $idOpen
_WinAPI_ShowMsg ("Открыть")
EndSwitch
EndFunc ;==>WM_COMMAND
; Обработчик сообщений WM_CONTEXTMENU
Func WM_CONTEXTMENU($hWnd, $iMsg, $iwParam, $iParam)
#forceref $hWnd, $iMsg, $iParam
$hMenu = _GUICtrlMenu_CreatePopup()
$menuAction=_GUICtrlMenu_InsertMenuItem($hMenu,0,"Action")
$menuSubAction = _GUICtrlMenu_CreateMenu ()
_GUICtrlMenu_InsertMenuItem($menuSubAction,0,"Copy",$idOpen)
_GUICtrlMenu_SetItemSubMenu($hMenu, 0, $menuSubAction)
_GUICtrlMenu_TrackPopupMenu ($hMenu, $iwParam)
_GUICtrlMenu_DestroyMenu ($hMenu)
Return True
EndFunc ;==>WM_CONTEXTMENU