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