使用VCL样式时显示窗口阴影

Question

有没有办法在使用VCL样式时按照正常的Windows 7格式显示窗口阴影？

我理解风格中的位图和设置取代了表单边框,但是不是阴影某种类型的alpha混合/ aero事物在受风格影响的区域之外？

将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;