Alt gölge içeren kenarlıksız TForm

Question

Bir açılan pencerenin veya bir açılan pencerenin veya bir açılır pencerenin aşağı açılan kısmı gibi davranan bir TForm türevi yapıyorum - geçici bir şey. Altyazısı yok - BorderStyle bsNone'a ayarlandı. Form, pozisyonunu ayarlayarak, formu kullanarak moda olmayan bir şekilde görüntülenir.

Göze çarpmasını sağlamak için, sınırının etrafında bir alt gölgeye ihtiyaç duyar. Bununla birlikte, sınırının bsNone'a ayarlanmasının bir sonucu, alt gölgenin kaybolmasıdır.

Çeşitli Google kaynakları bu varyasyonlarını önermek:

procedure TdlgEditServiceTask.CreateParams(var Params: TCreateParams); 
const 
    CS_DROPSHADOW = $00020000; 
begin 
    inherited; 
    { Enable drop shadow effect on Windows XP and later } 
    if (Win32Platform = VER_PLATFORM_WIN32_NT) and 
    ((Win32MajorVersion > 5) or 
     ((Win32MajorVersion = 5) and (Win32MinorVersion >= 1))) then 
    Params.WindowClass.Style := Params.WindowClass.Style or 
      CS_DROPSHADOW; 
end; 

ama çalışmıyor - gölge gösterilmez (Ben de korkunç görünüyor WS_THICKFRAME seti ile yeniden boyutlandırılabilir bir sınır oluşturur sürece). Bu bir açılır pencere, bir çocuk penceresi değil, bu yüzden neden başarısız olduğunu anlamıyorum.

Öneriler lütfen?

NB: Bu soru, yanıtsız kalan this sorusuna benzer bir sorudur.

NB2: TShadowWindow adlı bir belirsiz VCL bileşeni var, doğru olanı yapacak gibi görünüyor, ancak pratik olması için çok kaba yazılmış olduğu ortaya çıkıyor.

Güncelleme: Aşağıdaki Andreas 'yorumları aşağıda, bunu daha fazla araştırmış ve bazı bulgular buldum.

Windows 7 altında, aynı uygulama'dan başka bir pencerenin üzerindeyken, açılır pencerenin açıldığında gölgenin görünmediğini keşfettim.

Burada açıklandığı gibi bir gölge istemek için bir açılır pencerede CreateParams kullanan basit bir Delphi uygulaması.

ana pencerenin dışına taştığı gölge nasıl göründüğünü görün?

Ancak kenarlıksız pencereyi ana pencerede bir açılır pencere olarak kullanmak istiyorum. Alt gölge, pencereyi altından pencereden ayırır. Yukarıdaki tüm açıklamalarım bu duruma işaret ediyor. Açıkçası, bazı Windows mekanizmaları burada karışıyor.

Aynı uygulamayı Windows XP altında da denedim. İşte göründüğü gibi.

Bu * her yerde gölge ile düzgün çalışır. Gah! Andreas'ın da belirttiği gibi, bir Vista/W7 olayı gibi görünebilir.

(* Bu metin ve ScreenDump bir önceki sürümü hiçbir gölge Windows XP ekran seçeneğin 'Shadows menüler altında' olduğu için kapalı. Ancak bu olduğu ortaya çıktı ortaya çıktı önerdi. Duh.)

Answer 1

buldum İşte kanıtı.

Gördüğünüz gibi, gölge şimdi formda üzerinde düzgün gösterilene

Sorun Z-düzeninden biriydi. Gölgenin kendisi Windows tarafından korunan ayrı bir pencere olduğu ortaya çıkıyor. Windows 7'de, ana pencerenin altındaki gölgeyi gösteriyor gibi görünüyor. Düzgün görüntülenmesini sağlamak için, onu hareket ettirmek gerekiyor.

Łukasz Płomiński adında bir dahi, bunu Embarcadero haber grubundaki bir başlıkta açıkladı. İşte bunu çözmek için onun kodudur:

Sen Z emir değişmesi sonucu FixSysShadowOrder() aramaya ve bunun doğru kalmayacak zaman dışarı çalışmak zorunda

procedure TForm1.FixSysShadowOrder; 

    function FindSysShadowOrderProc(WindowHandle: HWND; // handle to window 
    Form: TForm1 // application-defined value, 32-bit 
    ): BOOL; stdcall; 
    var 
    Buffer: array [0 .. 255] of char; 
    Rect: TRect; 
    begin 
    Result := True; 
    if IsWindowVisible(WindowHandle) then 
    begin 
     // this code search for SysShadow window created for this window. 
     GetClassName(WindowHandle, Buffer, 255); 
     if 0 <> AnsiStrComp(Buffer, PChar('SysShadow')) then 
     Exit; 

     GetWindowRect(WindowHandle, Rect); 
     if (Rect.Left <> Form.Left) or (Rect.Top <> Form.Top) then 
     Exit; 

     Form.FSysShadowHandle := WindowHandle; 
     // stop enumeration 
     Result := False; 
    end; 
    end; 

begin 
    if not(csDesigning in ComponentState) and 
    ((GetClassLong(Handle, GCL_STYLE) and CS_DROPSHADOW) = CS_DROPSHADOW) 
    and IsWindowVisible(Handle) then 
    begin 
    // for speed, proper SysShadow handle is cached 
    if FSysShadowHandle = 0 then 
     EnumThreadWindows(GetCurrentThreadID(), @FindSysShadowOrderProc, 
     lParam(Self)); 
    // if SysShadow exists, change its z-order, and place it directly below this window 
    if FSysShadowHandle <> 0 then 
     SetWindowPos(FSysShadowHandle, Handle, 0, 0, 0, 0, 
     SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOOWNERZORDER or SWP_NOSIZE); 
    end; 
end; 

. Łukasz, boş bir rutinde (örneğin bir Eylem güncellenirken) ve WM_WINDOWPOSCHANGED mesajının alınması üzerine onu çağırmayı önerdi.

Answer 2

"Bilgisayarımda çalışıyor."

http://privat.rejbrand.se/shdw.png
(High-res)

Ama yaptığınız gibi aynı sonuca yapma soluk hafızaya sahip için, o CS_DROPSHADOW kalın, yeniden boyutlandırılabilir, çerçeve olmadan çalışmaz yani, oldukça komik. Hala öyle misin ?! belki Windows Vista çalıştıran

Answer 3

gölge yapmak için daha fazla bilgi için, tüm sistemin gölge etkisi açmak için, SPI_SETDROPSHADOW parametresi SystemParametersInfo win32 API çağırmak zorunda çalışmak, bakınız:

SystemParametersInfo