使用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;