Delphi 窗体无边框全屏不遮挡任务栏-最完美的解决方法

1、{声明 拦截最大化，最小化命令，从新设置屏幕高度}

procedure WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo);message WM_GetMinMaxInfo;

2、{截获系统消息，然后改写窗体最大化高度。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

 

转载于:https://www.cnblogs.com/acmexyz/p/10303879.html