Delphi 无边框全屏不遮挡任务栏

最新推荐文章于 2022-05-25 14:03:38 发布

WitsonX

最新推荐文章于 2022-05-25 14:03:38 发布

阅读量1.1k

点赞数

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

本文链接：https://blog.csdn.net/WitsonX/article/details/52439620

版权

Delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Delphi 无边框全屏不遮挡任务栏

{声明 拦截最大化，最小化命令，从新设置屏幕高度}
procedure   WMGetMinMaxInfo(var   mes:   TWMGetMinMaxInfo);message   WM_GetMinMaxInfo;

//......

{截获系统消息，然后改写窗体最大化高度。Screen.WorkAreaHeight就是屏幕高度减去任务栏的高度}
procedure   TForm1.WMGetMinMaxInfo(var   mes:   TWMGetMinMaxInfo);
begin
    mes.MinMaxInfo.ptMaxSize.X   :=   Screen.Width;
    mes.MinMaxInfo.ptMaxSize.Y   :=   Screen.WorkAreaHeight;
    mes.Result   :=   0;
    inherited;
end;