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;

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