winforms - 创建无边框但带阴影的应用程序表单(在Windows Vista＆Windows 7中)

Question

如何在WinForms中做到这一点？

Answer 1

在Delphi中，您将需要覆盖要使其成为无边界形式的CreateParams过程，并将CS_DROPSHADOW（$ 00020000）样式添加为默认样式。

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;

  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;