【Delphi】窗体阴影

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);
end;