Delphi支持Aero Glass和DoubleBuffered属性 - 发生了什么以及我们如何使用它们？

procedure EnableAeroGlass(Form: TForm);
var
  AccentPolicy: TAccentPolicy;
  AccentPolicySize: Cardinal;
  Data: TWindowCompositionAttributeData;
begin
  if CheckWin32Version(6, 0) then
  begin
    AccentPolicy.AccentFlags := 2; // ACCENT_ENABLE_BLURBEHIND
    AccentPolicy.AccentState := ACCENT_ENABLE_BLURBEHIND;
    AccentPolicy.GradientColor := 0;
    AccentPolicySize := SizeOf(TAccentPolicy);
    Data.Attribute := WCA_ACCENT_POLICY;
    Data.Size := SizeOf(Data);
    Data.Data := @AccentPolicy;
    Data.DataSize := AccentPolicySize;
    SetWindowCompositionAttribute(Form.Handle, @Data);
  end;
end;

type
  TAccentFlags = (AF_GRADIENT = 1, AF_TRANSPARENTGRADIENT = 2, AF_BLURBEHIND = 4);
  TAccentState = (AS_NONE = 0, AS_MAIN = 1, AS_FLASH = 2);
  TAccentPolicy = record
    AccentFlags: Cardinal;
    AccentState: TAccentState;
    GradientColor: Cardinal;
  end;
  TWindowCompositionAttributeData = record
    Attribute: Cardinal;
    Data: Pointer;
    Size: Cardinal;
  end;

const
  WCA_ACCENT_POLICY = 19;
  ACCENT_ENABLE_BLURBEHIND = 3;

Form.DoubleBuffered := True;