Я правильно понимаю, что в данном случае достаточно копировать в
Dim uNMHDR As NMHDR,
не вникая в подробности
Dim uNMMOUSE As NMMOUSE ?
Т.е. вот такой код вместо предыдущего:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
Public Function NewFormMeWindowProc( _
ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim uNMHDR As NMHDR
Select Case Msg
Case WM_NOTIFY
Call CopyMemory(uNMHDR, ByVal lParam, Len(uNMHDR))
If uNMHDR.hwndFrom = g_hwndToolBar Then
Select Case uNMHDR.code
Case NM_RCLICK
Debug.Print "NM_RCLICK(toolbar)"
Form1.PopupMenu Form1.file
Case Else
End Select
ElseIf uNMHDR.hwndFrom = g_hwndRebar Then
Select Case uNMHDR.code
Case NM_RELEASEDCAPTURE
Debug.Print "NM_RELEASEDCAPTURE(rebar)"
Form1.PopupMenu Form1.file
Case Else
End Select
End If
Case Else
End Select
NewFormMeWindowProc = CallWindowProc( _
OldFormMeWindowProc, hwnd, Msg, wParam, _
lParam)
End Function
А спрашиваю потому, что у меня в реальном приложении в той же ф-ции ловится еще:
LVN_ITEMCHANGED
TBN_HOTITEMCHANGE
TTN_GETDISPINFO
и везде первая часть структуры
NMHDR
а подробности NMMOUSE
мне как бы и не нужны.
И здесь еще академический вопрос.
Если я сразу делаю как в коде выше:
1.
2.
Case WM_NOTIFY
Call CopyMemory(uNMMOUSE, ByVal lParam, Len(uNMMOUSE))
-до выяснения
uNMMOUSE.hdr.code
Не рискую ли я нарваться на "ошибку памяти" с вылетом приложения, если длина реальной начинки короче длины uNMMOUSE?
По сути ведь копирую лишнюю память.
По идее ведь сначала надо копировать в NMHDR
Потом выяснять hdr.code (и желательно .hwndFrom)
и только потом в зависимости от результата копировать в расширенную структуру, если это вообще надо
Так?
Или можно забивать и копировать все подряд в то, что ожидается в требуемом Msg?
