Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

PopupMenu + иконка в трее — не закрывается нормально...   Найти похожие ветки 

 
Dmy   (2004-09-25 16:32) [0]

Создал иконку в трее срадствами WinAPI и подключил к ней PopupMenu таким образом:

procedure TfmPreferences.IconCallBackMessage(var Msg: TMessage);
var
 P: TPoint;
begin
 if Cardinal(Msg.LParam) = WM_RBUTTONDOWN then
   begin
     GetCursorPos(P);
     pmMenu.Popup(P.X, P.Y);
     PostMessage(self.Handle, WM_USER, 0, 0);
   end;
end;


Всё бы хорошо, но PopupMenu должно при потере фокуса закрываться, а оно не закрывается до тех пор, пока не нажмёшь на меню или окно программы... :Ъ Подскажите, как бороться.


 
Stefan   (2004-09-25 16:48) [1]

Попробуй поменять содержимое твоей процедуры

begin
 case Cardinal(Msg.LParam) of
      WM_LBUTTONUP: begin // левая кнопка мыши
                      SetForegroundWindow(self.Handle);
                    end;
      WM_RBUTTONUP: begin // правая кнопка мыши
                      GetCursorPos(P);
                      SetForegroundWindow(self.Handle);
                      PopupMenu1.Popup(P.X, P.Y);
                    end;
      end;
 SetForegroundWindow(self.Handle);
end;



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.023 c
14-1095235276
ghg
2004-09-15 12:01
2004.10.10
вопрос знатокам фортрана


6-1091687997
mrGrey_2
2004-08-05 10:39
2004.10.10
Распределение ресурсов


14-1095436250
Igorek
2004-09-17 19:50
2004.10.10
Проблема с сетевым принтером HP LaserJet 2300d


14-1094876673
Григорьев Антон
2004-09-11 08:24
2004.10.10
А когда смысл const поменялся?


1-1096006472
Kniaz
2004-09-24 10:14
2004.10.10
копирование файла