Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.01;
Скачать: CL | DM;

Вниз

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

 
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, только если нажатый акселератор не связан с командой ни одного из элементов меню указанного окна".



Страницы: 1 вся ветка

Текущий архив: 2003.09.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
9-1269
Mef88
2003-02-28 17:10
2003.09.01
Навороченная прозрачность


1-1403
Checist [root]
2003-08-16 03:31
2003.09.01
Gif формат в Image


14-1656
Васька
2003-08-12 17:04
2003.09.01
Изображения


4-1742
MMMaloy
2003-06-25 20:00
2003.09.01
Trey


3-1302
n13
2003-08-09 16:27
2003.09.01
Clarion