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

2016-09-05 19:14:51来源:CSDN作者:WitsonX人点击

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;


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台