rxmenu [D5, Win95/98, WinME, Win2k]
stainer © (2002-07-29 22:21:00)
Привет всем,
есть большая менюшка, открывающаяся из system tray в win9x с
ней нет про блем,
а в win 2000 проблема следующая: появившееся меню не
закрывается если щёлкнуть мышкой вне меню.
Евгений Дем. (2002-08-31 12:50:00) [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 уже
существует - что то вроде того
Наверх 
ЧАТ |
Орешник |
|
