Delphi窗口无边框时显示窗口阴影

最新推荐文章于 2024-01-24 11:20:56 发布

WitsonX

最新推荐文章于 2024-01-24 11:20:56 发布

阅读量2.9k

点赞数

分类专栏： Delphi 文章标签： delphi 窗口

本文链接：https://blog.csdn.net/witsonx/article/details/52439607

版权

Delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Delphi窗口无边框时显示窗口阴影

procedure CreateParams(var Params:TCreateParams);override;

//........

procedure TfMain.CreateParams(var Params: TCreateParams);
// uncomment this if CS_DROPSHADOW is not already defined...
//const
//CS_DROPSHADOW = $H20000;
begin
  inherited;
  // for XP and later only...
  if (Win32MajorVersion>5) or ((Win32MajorVersion = 5) and (Win32MinorVersion>= 1)) then
    Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;