Есть древний рабочий пример вызова меню окна
Код:
NPadHandle := FindWindow(nil, PChar('Безымянный — Блокнот'));
NPadMenu := GetMenu(NPadHandle);
NPadSubMenu := GetSubMenu(NPadMenu, 2);
SendMessage(NPadHandle, WM_COMMAND, GetMenuItemId(NPadSubMenu, 1), 0);
Идем дальше, как я понял меню попапа вызывается точно так же? Заменил
Код:
NPadHandle := Form1.Handle;
NPadMenu:= Popupmenu1.handle;
И никакого выбора.
Пробовал вызвать перед выбором
Код:
PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
Sleep(2000);
Гугл подсказал функцию Выбора (не клика), но даже она не выбирает
Код:
HiliteMenuItem(Form1.Handle, PopupMenu1.Handle, 2, MF_BYPOSITION or MF_HILITE);
Есть у кого опыт с вызовом или подсветкой чужого попапа?