使用VCL樣式時顯示窗口陰影

Question

使用VCL樣式時，有沒有像常規Windows 7窗體一樣顯示窗口陰影的方法？

我知道樣式中的位圖和設置會替換表單邊框，但不是陰影是某種受風格影響的區域之外的alpha混合/空氣樣物體？

將CS_DROPSHADOW添加到WindowClass.Style似乎沒有效果。

Answer 1

使用CS_DROPSHADOW風格正常工作使用

type 
    TMyForm = class(TForm) 
    protected 
    procedure CreateParams(var Params: TCreateParams); override; 
    end; 

procedure TMyForm.CreateParams(var Params: TCreateParams); 
begin 
    inherited; 
    with Params do 
    WindowClass.Style := WindowClass.Style or CS_DROPSHADOW; 
end;