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

方法一：

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

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

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) ;

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