[Атос]

Вопрос снят.

[Creat0R]

Вопрос снят. »

Если снят, то будь добр выложить решение. Может другим пригодится.

[Атос]

Совместными усилиями в этом участвовали товарищи из следующего массива:
Global Array[3] = [Alofa, joiner, ra4o]

Код:

#include <GuiMenu.au3>
Global Enum $id_111 = 1000, $id_222, $id_333, $id_444
Global $hGUI = GUICreate('111')
Global $hListViewMenu = GUICtrlCreateListView("QQQQQQ", 0, 0, 200, 327)
Global $LBL = GUICtrlCreateLabel('', 205, 10, 200, 20)
Global $hListViewMenu1 = GUICtrlGetHandle($hListViewMenu)
GUISetState()
GUIRegisterMsg(0x0111, "WM_COMMAND")
GUIRegisterMsg(0x007B, "WM_CONTEXTMENU")
Do
Until GUIGetMsg() = -3

Func WM_CONTEXTMENU($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $lParam
    Switch $wParam
        Case $hGUI
            _WinMenu($hWnd)
        Case $hListViewMenu1
            _ItemMenu($hWnd)
    EndSwitch
    Return True
EndFunc   ;==>WM_CONTEXTMENU

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $lParam
    Switch _WinAPI_LoWord($wParam)
        Case $id_111
            GUICtrlSetData($LBL, 'Выбран первый пункт')
        Case $id_222
            GUICtrlSetData($LBL, 'Выбран второй пункт')
        Case $id_333
            GUICtrlSetData($LBL, 'Выбран третий пункт')
        Case $id_444
            GUICtrlSetData($LBL, 'Выбрано меню окна')
    EndSwitch
EndFunc   ;==>WM_COMMAND

Func _ItemMenu($hw)
    Local $hMenu
    $hMenu = _GUICtrlMenu_CreatePopup()
    _GUICtrlMenu_InsertMenuItem($hMenu, 0, "Первый пункт", $id_111)
    _GUICtrlMenu_InsertMenuItem($hMenu, 1, "Второй пункт", $id_222)
    _GUICtrlMenu_InsertMenuItem($hMenu, 2, "Третий пункт", $id_333)
    _GUICtrlMenu_TrackPopupMenu($hMenu, $hw)
    _GUICtrlMenu_DestroyMenu($hMenu)
EndFunc   ;==>_ItemMenu

Func _WinMenu($hw)
    Local $hMenu
    $hMenu = _GUICtrlMenu_CreatePopup()
    _GUICtrlMenu_InsertMenuItem($hMenu, 0, "Меню окна", $id_444)
    _GUICtrlMenu_TrackPopupMenu($hMenu, $hw)
    _GUICtrlMenu_DestroyMenu($hMenu)
EndFunc   ;==>_WinMenu