Всплывающее меню

← →
irq (2003-06-30 10:52) [0]

Задача - выполнить действия, связанные с пунктом всплывающего меню (TPopupMenu в Delphi) в чужой программе. Известные данные - ShortKey этого пункта и его индекс. Как решить задачу? Спасибо.

← →
Ян (2003-06-30 13:48) [1]

нужно получить идентификатор нужного пункта меню
//------------- N-номер пункта ---
MnuID:=GetMenuItemID(MnuHandle,N);
MnuHandle - хэндл того подменю в котором этот пункт
//-------------
sendmessage(WinHandle,WM_COMMAND,makewparam(MnuID,0),0);

для всплывающего меню не проверял,но отличий от обычного
быть не должно
Как сделать через ShortKey - самому интересно, пока не получилось. Теоретически надо получить таблицу акселераторов,
а потом TranslateAccelerator но как?

← →
irq (2003-06-30 15:39) [2]

Этот способ на TPopupMenu не срабатывает :( После следующией прочитанной фразы "...Дескриптор всплывающего меню возвращают всего две функции - CreatePopupMenu и GetSubMenu..." появились сомнения, что это вообще возможно сделать. Для своего приложения дескриптор PopupMenu известен, а для чужого его еще найти нужно. Функция CreatePopupMenu не подходит по понятным причинам, а для функции GetSubMenu(HMENU hmenu, int nPos) на вход подается дескриптор меню, в позиции nPos которого находится данное PopupMenu. Хочется верить, что я ошибаюсь.

А насчет таблицы акселераторов можно попробовать через LoadAccelerators. Но только нужно учеть такой момент "Если указанное функции TranslateAccelerator окно свернуто, то она посылает сообщение WM_COMMAND, только если нажатый акселератор не связан с командой ни одного из элементов меню указанного окна".

Всплывающее меню Найти похожие ветки