Windows 7 Stil Benachrichtigungen Flyouts in Delphi

Question

In Bezug auf Notification Area Empfehlungen von Microsoft, bin ich auf der Suche nach Ideen oder eine Delphi-Komponente zu implementieren Notification Area Flyouts.

Die erste „natürliche“ Idee ist es, eine Standard-Delphi-Formular zu verwenden, aber ich bin vor zwei Probleme mit sich:

1. Ich kann nicht das Formular Grenze Verhalten erhalten die Verwendung von Standard "BorderStyle" -Eigenschaft. Es wurde versucht, den Rahmen mit der GlassFrame-Eigenschaft zu "imitieren", während BorderStyle auf bsNone festgelegt ist. Es gibt jedoch keinen GlassFrame, wenn kein Rahmen vorhanden ist (zumindest in Delphi 2007).
2. Ich kann nicht herausfinden, wie man das Formular schließt, wenn der Benutzer überall aus dem Formular selbst klickt. Gestern habe ich mit verschiedenen Nachrichten versucht, aber niemand funktioniert wie erwartet.

werde ich keine Ahnung oder Komponente danken ihm :)

Mit freundlichen Grüßen geschehen.

jachguate.

ps. Es gibt eine verwandte Frage in converting notification area icon to Program icon in Win7 (Delphi).

update [0] Ich bin immer noch auf der Suche nach Beratung. @skamradt Antwort sieht sehr gut aus, funktioniert aber in der Praxis leider nicht gut.

Update [1] Schließlich Das automatische Schließen Verhalten wird mit der WM_ACTIVATE Nachricht nach einer Berufung SetForegroundWindog Arbeit zu zwingen, Flyout „Aktivierung“

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

Nun suche ich Rat an Erreichen Sie das Border-Verhalten und den visuellen Stil, da das engste Verhalten mit Style als WS_POPUP oder WS_DLGFRAME erreicht wird, während das nächste visuelle Ziel erreicht wird, indem Sie Style als WS_POPUP oder WS_THICKFRAME festlegen.

Answer 1

Ich glaube, was Ihr nach ist die folgende:

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; 

Dies wird Ihnen ein beträchtliches Popup-Fenster mit einem Glasrahmen. Sie können das Fenster nicht ohne zusätzliche Programmierung verschieben, da die Standardfensterbeschriftung fehlt. Wenn ein anderes Fenster den Fokus erhält, wird das FormDeactivate-Ereignis ausgelöst ... aber nur, wenn Sie in derselben Anwendung zu einem anderen Formular wechseln. Um dies unabhängig von der geschalteten Anwendung zu handhaben, verwenden Sie die Nachrichtenaufnahmemethode.