Windows 7 phong cách Thông báo Flyouts trong Delphi

Question

Về khuyến nghị Khu vực thông báo của Microsoft, tôi đang tìm ý tưởng hoặc thành phần Delphi để triển khai Notification Area Flyouts.

Ý tưởng "tự nhiên" đầu tiên là sử dụng một hình thức Delphi chuẩn, nhưng tôi đang phải đối mặt với hai vấn đề với nó:

1. tôi không thể nhận được các hành vi biên giới dưới hình thức sử dụng thuộc tính "BorderStyle" chuẩn. Đã cố gắng "bắt chước" đường viền bằng cách sử dụng thuộc tính GlassFrame cùng với BorderStyle được đặt thành bsNone, nhưng không có GlassFrame khi không có đường viền (ít nhất, trong Delphi 2007).
2. Tôi không thể tìm ra cách tạo biểu mẫu gần khi người dùng nhấp vào mọi nơi trong chính biểu mẫu đó. Hôm qua tôi đã cố gắng với các thông điệp khác nhau, nhưng không ai làm việc như mong đợi.

Tôi sẽ cảm ơn bất kỳ đầu mối hoặc một thành phần để làm cho nó xảy ra :)

Trân trọng.

jachguate.

ps. Có một câu hỏi liên quan trong converting notification area icon to Program icon in Win7 (Delphi).

cập nhật [0] Tôi vẫn đang tìm kiếm lời khuyên. @skamradt câu trả lời trông rất tốt, nhưng tiếc là không hoạt động tốt trong thực tế.

cập nhật [1] Cuối cùng, Hành vi tự động đóng đang hợp tác với thông điệp WM_ACTIVATE sau một SetForegroundWindog gọi để buộc flyout "kích hoạt"

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

Bây giờ, tôi đang tìm tư vấn để đạt được hành vi biên giới và phong cách trực quan, vì hành vi gần nhất đạt được với phong cách như WS_POPUP hoặc WS_DLGFRAME, trong khi mục tiêu trực quan gần nhất đạt được kiểu thiết lập là WS_POPUP hoặc WS_THICKFRAME.

Answer 1

Tôi tin rằng những gì sau của bạn là như sau:

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; 

này sẽ cung cấp cho bạn một cửa sổ popup khá lớn với một khung kính. Bạn không thể di chuyển cửa sổ mà không cần lập trình bổ sung vì thiếu chú thích cửa sổ tiêu chuẩn. Khi một cửa sổ khác được lấy nét, sự kiện FormDeactivate bị kích hoạt ... nhưng chỉ khi bạn chuyển sang một biểu mẫu khác trong cùng một ứng dụng. Để xử lý nó bất kể ứng dụng đã được chuyển, sử dụng phương thức chụp tin nhắn.