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