running-frag
why me?
- Сообщения
- 441
- Репутация
- 60
Код:
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
Local $hGui = GUICreate ("Form1", 200, 350)
Local $hListView = _GUICtrlListView_Create ($hGui, "", 5, 5, 500, 340)
_GUICtrlListView_InsertColumn ($hListView, 0, "Log")
_GUICtrlListView_SetColumnWidth ($hListView, 0, 260)
_GUICtrlListView_BeginUpdate ($hListView)
For $i = 1 To 10
_GUICtrlListView_InsertItem ($hListView, "Item no."&$i)
Next
_GUICtrlListView_EndUpdate ($hListView)
GUISetState (@SW_SHOW, $hGui)
GUIRegisterMsg ($WM_COMMAND, "WM_COMMAND")
While True
If GUIGetMsg () = $GUI_EVENT_CLOSE Then Exit
WEnd
Func WM_COMMAND ($hWnd, $iMsg, $wParam, $lParam)
Local $hInput = BitAND ($wParam, 0xFFFF) ; ID input\edit (handle)
Local $hCode = BitShift ($wParam, 16) ; string (value)
Select
Case $hWnd = $hGui ; нужный хэндл окна
Select
Case $hCode = $NM_RDBLCLK ; действие
ConsoleWrite ("double click done!"&@CR)
ConsoleWrite("Item "& _GUICtrlListView_GetItemText ($hListView, _GUICtrlListView_GetSelectedIndices ($hListView)) &@CRLF)
EndSelect
EndSelect
Return $GUI_RUNDEFMSG
EndFunc
попытался скрестить ListView со старым кодом WM_COMMAND для срабатывания на даблк клике, хочется что бы по даблклику срабатывала функция
подскажите где косяк
upd: подправлен код вывода (незначительная ошибка)