rxmenu

← →
stainer (2002-07-29 22:21) [0]

Привет всем,

есть большая менюшка, открывающаяся из system tray в win9x с ней нет про блем,
а в win 2000 проблема следующая: появившееся меню не закрывается если щёлкнуть мышкой вне меню.

← →
Евгений Дем. (2002-08-31 12:50) [1]

Попробуй так // DElphi под руой нет так что может в названиях функций ошибусь

var t:Point:
t:=GetCursorPosition //??? ну понятно что хотел
SetForegroundWindow(handle) // handle того окна которое обрабатывает сообщение иконки в System Tray
Menu.popup(t.x,t.y);
PostMessage(handle,wm_Null,0,0); // тут не совсем помню может handle а может и ноль

Должно работать
P.S. - Результат кода рекомендую смотреть в откомпилированном приложении при закрытом Delphi - иначе не всегда работает корректно. - наверно по тому что форма при загруженном Delphi уже существует - что то вроде того

rxmenu Найти похожие ветки