[Delphi]窗口最大化时怎么才能不要把任务栏盖住

最新推荐文章于 2022-07-26 10:42:37 发布

转载最新推荐文章于 2022-07-26 10:42:37 发布 · 5.5k 阅读

文章标签：

#任务 #delphi #shell

Delphi 专栏收录该内容

3 篇文章

订阅专栏

本文介绍两种实现全屏显示同时不遮挡任务栏的方法：一是通过设置窗体的Align属性；二是利用代码控制，通过获取任务栏尺寸调整窗体位置。

方法一：

设置要全屏的窗体的ALign 属性为 alClient ，此法最快。

注意的是，窗体WindowStat要设置为wsNormal，如果设置为wsMax，会有部分被遮挡。

方法二：用代码控制。在窗体的创建事件中，（此方法运行后窗体也可以移动。影响美观。应该再加入禁止窗体移动的代码）写入

var
    TrayWnd :  HWnd;   //任务栏句柄
    Rec : TRect;
begin
TrayWnd := FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
GetWindowRect(TrayWnd,Rec);          //获取任务栏尺寸
mainfm .Left :=0;
mainfm .top:=0;
mainfm .Width :=Screen .Width ;
mainfm .Height :=Screen .Height-(rec.Bottom- rec.Top) ;

这样也实现了全屏不挡了任务栏。