Delphi "Tray" icône (NotifyIcon) menu contextuel ne disparaît pas lorsque vous cliquez à l'extérieur

Question

J'essaie d'afficher un menu contextuel lorsque vous cliquez droit sur mon icône de notification, qui fonctionne bien; Mais je veux que le menu disparaisse lorsque l'utilisateur clique en dehors de ce menu.

Il est censé être de conception (comme dans ce document: http://support.microsoft.com/kb/135788), mais aucune application décente je sais de se comporte comme ça. J'ai essayé d'appeler SetForegroundWindow en utilisant la poignée du menu contextuel en vain. Je suis sûr qu'il est possible de contourner ce problème, comme je l'ai fait il y a des années, mais je ne me souviens plus comment.

Quelqu'un sait comment atteindre le comportement attendu?

Answer 1

J'ai trouvé une solution! J'appelais SetForegroundWindow (PopupMenu1.Handle);

Ce qui ne fonctionne pas, mais en changeant ce dans le gestionnaire d'événements 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! De toute évidence, si le formulaire est visible lorsque cela est appelé, votre application va sauter en premier, mais si elle est cachée (comme le mien), alors ça va fonctionner.

Je serais intéressé de savoir s'il existe un moyen de faire en sorte que le menu fonctionne correctement sans que la fenêtre ne saute avant tout.