Контекстное меню значка «Tray» (NotifyIcon) Delphi не исчезает при нажатии на него

Question

Я пытаюсь показать всплывающее меню при щелчке правой кнопкой мыши по значку уведомления, который отлично работает; Но я хочу, чтобы меню исчезало, когда пользователь щелкает за пределами этого меню.

Это, предположительно, дизайн (согласно этому документу: http://support.microsoft.com/kb/135788), но нет приличного приложения, которое я знаю о том, как ведет себя. Я попытался вызвать SetForegroundWindow, используя дескриптор всплывающего меню, но безрезультатно. Я уверен, что можно обойти это, как я это делал много лет назад, но не помню, как это сделать.

Кто-нибудь знает, как достичь ожидаемого поведения?

Answer 1

Я нашел решение!

Я звонил SetForegroundWindow (PopupMenu1.Handle);

Который не работает, но изменить это в обработчик событий OnPopup для

procedure TForm1.PopupMenu1Popup(Sender: TObject); 
begin 
    // Hack to fix the "by design" behaviour of popups from notification area icons. 
    // See: http://support.microsoft.com/kb/135788 
    BringToFront(); 
end; 

Works!

Очевидно, что если форма видна, когда она вызывается, ваше приложение будет прыгать прежде всего, но если оно скрыто (как и мое), то оно будет работать.

Мне было бы интересно узнать, есть ли способ заставить меню работать прямо без перескакивания окна.