Ребята, нужна помощь. Уже второй день бьюсь.

Есть Menu: TMenuItem. Там хранится список меню. Все это дело отображается как контекстное меню при помощи 


У каждого Item в этом Menu назначен обработчик OnClick. Но при непосредственном нажатии мышкой по меню OnClick не срабатывает. Если отлавливать WM_Command, то все нормально, сообщение проходит. Но нужно обрабатывать именно OnClick. Если я прикручиваю это Menu к TPopupMenu и вызываю его методом Popup, то так же все нормально обрабатывается, но так тоже не подходит, т.к. там кое чего намудрено с отрисовкой меню, а в таком случае вызывается обычное меню. Если тупо вызвать для любого Item метод Click, то OnClick нормально выполняется. 

Мне кажется OnClick не обрабатывается именно потому, что меню отображается с помощью TrackPopupMenu. Так ли это и как тут можно выкрутится?

А как это меню создается?

Из ресурса тянется по средствам WinAPI'вского LoadMenu

по описанию довольно таки через задницу оно работает.
попробуй указывать не Handle формы, а PopupList.Window

Не совсем понятно как. 
Собирается в ручную через GetMenuItemCount/GetSubMenu/GetMenuString ? 
Не сталкивался никогда, если честно.
Прицепи к скрытому пункту  MainMenu, или собери как PopupMenu.

а чем не угодило TPopupMenu.Popup?
Вообще не самый хороший вариант смешивать VCL и WinApi, тем более при работе с визуальными компонентами.
Например вызывать ShowWindow для TForm, вместо TForm.Show и т.п.
При вызове функций WinApi применительно к VCL-компонентам могут не учитываться внутренние поля (флаги состояния и т.п.) компонентов, что может привести к разнообразным глюкам и непредвиденному поведению оных.

Это сообщение отредактировал(а) MetalFan - 16.8.2013, 14:28

 На самом деле там не TMenuItem, а самописный наследник, который перекрывает отрисовку и приводит вид меню под общий стиль программы. Если использовать TPopupMenu.Popup, то меню имеет вид стандартного виндосовского меню, что не гуд.