Цитата:
|
Сообщение от 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, по клику на который, вызывается искомая попапка