изменить PopupMenu для ComboBox

[pronto]

Прехватом получилось это сделать, но только для стиля '0 - Dropdown Combo'. Как заставить работать для стилей 1 и/или 2?

Вот мои действия:

Код: Выделить всё


Public Sub Hook(hwnd As Long)
   If defWndProc = 0 Then
      defWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
   End If
End Sub

Public Sub UnHook(hwnd As Long)
   If defWndProc > 0 Then
      Call SetWindowLong(hwnd, GWL_WNDPROC, defWndProc)
      defWndProc = 0
   End If
End Sub

Public Function WindowProc(ByVal hwnd As Long, _
                           ByVal uMsg As Long, _
                           ByVal wParam As Long, _
                           ByVal lParam As Long) As Long

   If hwnd = hwndEdit Then
     
      Select Case uMsg
      Case WM_CONTEXTMENU
         
         ' WindowProc = 0
         
         ' показать контекстное меню
          mainF.PopupMenu mainF.mnItem
          WindowProc = 0
         
      Case Else
         
         'оставить без изменений
          WindowProc = CallWindowProc(defWndProc, _
                                      hwnd, _
                                      uMsg, _
                                      wParam, _
                                      lParam)
      End Select
   
   End If
End Function


Private Sub Form_Load()
   ' получение манипулятора текстового поля в комобокс'е
   hwndEdit = FindWindowEx(Combo1.hwnd, 0&, vbNullString, vbNullString)
   
   If hwndEdit <> 0 Then
      Call Hook(hwndEdit)
     
      'Call Hook(cmbSettlements.hwnd)
   End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   If hwndEdit <> 0 Then
      Call UnHook(hwndEdit)
   End If
   
   Unload mainF

End Sub


[Antonariy]

Для DropDownList WM_CONTEXTMENU не ходит, отлавливай правую кнопку мыши.

[pronto]

WM_RBUTTONDOWN ?
Пробовал, не реагирует...

[pronto]

Извиняюсь за суету. Получилось самому разобраться.
строку

Код: Выделить всё

hwndEdit = FindWindowEx(Combo1.hwnd, 0&, vbNullString, vbNullString)

нужно заменить на

Код: Выделить всё

hwndEdit = ChildWindowFromPoint(Combo1.hwnd, 5, 5)

Такой вариант реагирует и на WM_RBUTTONDOWN, и на WM_CONTEXTMENU. У себя оставил WM_CONTEXTMENU для наглядности.

[Twister]

Код: Выделить всё

hwndEdit = ChildWindowFromPoint(Combo1.hwnd, 5, 5)

Достаточно заменить на GetWindow с GW_CHILD. А то вдруг комбо будет меньше, чем 5 пикселей в ширину...