窗体阴影

在窗体边缘出现阴影

procedure TFrmBase.CreateParams(var Para: TCreateParams);

const

  CS_DROPSHADOW = $00020000;

begin

 inherited CreateParams(Para);

 /// 窗体边框的阴影效果

 if (Win32Platform = VER_PLATFORM_WIN32_NT)

    and ((Win32MajorVersion > 5) or ((Win32MajorVersion = 5) and (Win32MinorVersion >= 1))) then

    Para.WindowClass.Style := Para.WindowClass.Style or CS_DROPSHADOW;