Windows 7 style Notifications Flyouts dans Delphi

Question

En ce qui concerne les recommandations de zone de notification par Microsoft, je cherche des idées ou un composant Delphi à mettre en œuvre Notification Area Flyouts.

La première idée est d'utiliser un formulaire standard Delphi « naturelle », mais je suis face à deux problèmes avec elle:

1. Je ne peux pas obtenir le comportement des frontières de formulaire en utilisant la propriété "BorderStyle" standard. J'ai essayé de "mimer" la bordure en utilisant la propriété GlassFrame avec BorderStyle définie sur bsNone, mais il n'y a pas de GlassFrame quand il n'y a pas de bordure (au moins, dans Delphi 2007).
2. Je ne peux pas comprendre comment fermer le formulaire lorsque l'utilisateur clique partout hors du formulaire lui-même. Hier, j'essayais avec différents messages, mais personne ne fonctionne comme prévu.

Je remercierai tout indice ou d'un composant pour y arriver :)

Meilleures salutations.

jachguate.

ps. Il y a une question connexe dans converting notification area icon to Program icon in Win7 (Delphi).

mise à jour [0] Je suis toujours à la recherche de conseils. réponse @skamradt semble très bien, mais malheureusement, ne fonctionne pas bien dans la pratique.

mise à jour [1] Enfin, le comportement de fermeture automatique fonctionne avec le message WM_ACTIVATE après une SetForegroundWindog appelant à la force icône déroulante "activation"

begin 
    FlyoutForm.Show; 
    SetForegroundWindow(FlyoutForm.Handle); 
end; 

Maintenant, je suis à la recherche de conseils à Atteignez le comportement frontalier et le style visuel, car le comportement le plus proche est atteint avec le style WS_POPUP ou WS_DLGFRAME, tandis que l'objectif visuel le plus proche est atteint avec WS_POPUP ou WS_THICKFRAME.

Answer 1

Je crois que votre après est la suivante:

TForm1 = class(TForm) 
    : 
protected 
    procedure CreateParams(var Params: TCreateParams); override; 
    procedure WMActivate(Var msg:tMessage); message WM_ACTIVATE; 
end; 

procedure TForm1.CreateParams(var Params: TCreateParams); 
begin 
    inherited; 
    Params.Style := WS_POPUP or WS_THICKFRAME; 
end; 

procedure TForm4.WMActivate(var msg: tMessage); 
begin 
    if Msg.WParam = WA_INACTIVE then 
    Hide; // or close 
end; 

Cela vous donnera une fenêtre importante avec un cadre en verre. Vous ne pouvez pas déplacer la fenêtre sans programmation supplémentaire, car la légende des fenêtres standard est manquante. Lorsqu'une autre fenêtre obtient le focus, l'événement FormDeactivate est déclenché ... mais seulement si vous passez à un autre formulaire dans la même application. Pour le gérer quelle que soit l'application commutée, utilisez la méthode de capture de message.