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

 

posted @ 2019-01-22 14:54  YJCCN  阅读(838)  评论(0编辑  收藏  举报