[nixon232]

Есть древний рабочий пример вызова меню окна

Код:

  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);

Есть у кого опыт с вызовом или подсветкой чужого попапа?

[Alegun]

Можно и посылкой сообщения вызов сделать, не забыв только попапку к форме прикрутить, в смысле Form1.PopupMenu:= PopupMenu1, а дальше
будто бы мыша правой кнопкой отжалась

Код:

sendmessage(Form1.Handle, WM_RBUTTONDOWN, MK_RBUTTON, x + y shl 16);
sendmessage(Form1.Handle, WM_RBUTTONUP, MK_RBUTTON, x + y shl 16);

где x и y - это желаемые координаты показа

[nixon232]

Сам поппап ввызвать не проблема, хотя способ интересный, может получиться адаптировать под свои нужды, спасибо.. Главный вопрос это выбрать элемент меню без использования клавы/мыши. Такой способ не дает стопроцентный клик, если юзер что-то делает в момент клика и не дай бог попал на попапку, возможен клик в другой пунк. Шанс этого мал, но в моей задаче он критичен.

[Alegun]

Эмулируют обычно так: сначало блокируют мышу, затем запоминают координаты/состояние курсора, потом собсно сам процесс, в конце возвращают указалку на место и врубают грызуна, юзер испортить такое не успеет, в "чужом" оконце по-другому, без этого, не обойтись

[nixon232]

Сообщение от Alegun

Эмулируют обычно так: сначало блокируют мышу, затем запоминают координаты/состояние курсора, потом собсно сам процесс, в конце возвращают указалку на место и врубают грызуна, юзер испортить такое не успеет, в "чужом" оконце по-другому, без этого, не обойтись

Сейчас так и делаю, но процеес блокировки толковый не нашел для чужого окна. может подскажите? сейчас использую ShowCursor, Но он бесполезен

[nixon232]

Сообщение от nixon232

Сейчас так и делаю, но процеес блокировки толковый не нашел для чужого окна. может подскажите? сейчас использую ShowCursor, Но он бесполезен

вроде решил довольно просто (на первый взгляд) Но нужно тестить.

Код:

procedure BlockInput(fBlockIt : boolean); stdcall; external 'USER32.DLL';

минус только в том, что блочится и клава.

[Alegun]

У меня BlockInput не работает, просто никакой реакции, можно ещё прятать курсор и не давать его сдвинуть с нулевых координат, но может объясните задачу более конкретно, что требуется, видимо нужно вызвать попапку чужого окна, выбрать и нажать определённый пункт, а может можно глянуть в ресурсах его номер айди и вызвать по нему, вдруг так проще

[nixon232]

Сообщение от Alegun

У меня BlockInput не работает, просто никакой реакции, можно ещё прятать курсор и не давать его сдвинуть с нулевых координат, но может объясните задачу более конкретно, что требуется, видимо нужно вызвать попапку чужого окна, выбрать и нажать определённый пункт, а может можно глянуть в ресурсах его номер айди и вызвать по нему, вдруг так проще

У меня Блокируется все, но новость, что оно не везде работает пугает.
Нужно вызвать меню-поп-апа кликнув на обект, который создан как Hud-element на чужом окне. И в этом меню выбрать там нужный элнмент. блокировка нужна для стабильной работы. смещать мышку не желательно.
Про какой Айди идет речь?

[nixon232]

Сообщение от Alegun

Можно и посылкой сообщения вызов сделать, не забыв только попапку к форме прикрутить, в смысле Form1.PopupMenu:= PopupMenu1, а дальше
будто бы мыша правой кнопкой отжалась

Код:

sendmessage(Form1.Handle, WM_RBUTTONDOWN, MK_RBUTTON, x + y shl 16);
sendmessage(Form1.Handle, WM_RBUTTONUP, MK_RBUTTON, x + y shl 16);

где x и y - это желаемые координаты показа

Попрробовал ваш вариант с небольшими дополнениями, но клика (вызова попапа), нет. в чем может быть проблема?

Код:

SendMessage(h, WM_LBUTTONDOWN, MK_LBUTTON, v.x + v.y shl 16);
       Sleep(100);
    SendtMessage(h, WM_LBUTTONUP, MK_LBUTTON, v.x + v.Y shl 16);

Где V - TPoint, координаты объкта относительно всего стола, h - хендл обекта в точке V, по клику на который, вызывается искомая попапка

[Alegun]

Со "своей" попапкой такое действует

Кстати, вспомнилось:

...Любой пункт контекстного меню - это запись в реестре,
там прописано действие, выполняемое при нажатии на этот
пункт. Всё, что вам нужно сделать - это посмотреть на это
действие регедитом и сделать то же самое...

З.Ы. Правда наверное, это верно лишь для эксплорера :-(

З.Ы.З.Ы. К сожалению, это так и оказалось на самом деле, в системный реестр записываются лишь сторонние контекстные команды проводника. А если в корень смотреть, любая попапка программы - это отдельное оконце, со своим хендлом, с обработкой "обычного" меню проблем поэтому и нет, ибо существует несколько десятков функций работы с ним, а для PopUp, при всей их схожести, нужно видимо извращаться, как, явного ответа в тырнете почему-то не нашлось

[nixon232]

У моей попапки класс #32768. Что за он кстати? судя по всему он не "самопальный". Нашел схожую тему 15-го года в гугле, но там решения так и не нашли, автор там не смог найти хедл. Хендл то есть, а толку )