Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c