![]() |
|
|
#1
|
|||
|
|||
![]() Добры вечер знатоки! Вопрос таков как мне убрать с экрана показ PopUp меню при потере фокуса? При вызове этого меню главная форма скрыта и должна быть скрыта и при скрытии меню. Я смотрел в FAQ но там тока при отображенной форме показано скрытие меню.
З.Ы. PopUp меню вызывается из traybara. (где часы) Последний раз редактировалось Ama, 29.01.2010 в 19:30. |
#2
|
||||
|
||||
![]() Код:
... Var CursorPos: TPOINT; ... TRAYICON: begin GetCursorPos(CursorPos); if lParam = WM_RBUTTONUP then begin SetForegroundWindow(HandleWnd); TrackPopupMenu(PopupMenu1, TPM_LEFTALIGN or TPM_LEFTBUTTON or TPM_RIGHTBUTTON, CursorPos.X, CursorPos.Y, 0, HandleWnd, nil); EndMenu; SendMessage(HandleWnd,WM_NULL,0,0); end; ... PopupMenu1 - Менюха Програмистами не рождаются, ими становятся! |