|
#1
|
|||
|
|||
GetMenu
Есть древний рабочий пример вызова меню окна
Код:
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); Последний раз редактировалось nixon232, 07.09.2016 в 10:13. |