[Delphi]无边框窗口最大化不挡任务栏方法

发布时间：2020-12-15 09:27:19 所属栏目：大数据来源：网络整理

导读：procedure WMGetMinMaxInfo( var mes: TWMGetMinMaxInfo); message WM_GetMinMaxInfo; procedure TfrmMain.WMGetMinMaxInfo( var mes: TWMGetMinMaxInfo); var I: Integer; R: TRect; begin R : = Self.Monitor.WorkareaRect; mes.MinMaxInfo.ptMaxSize.X :

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


procedure TfrmMain.WMGetMinMaxInfo(var mes: TWMGetMinMaxInfo);
var
  I: Integer;
  R: TRect;
begin
  R := Self.Monitor.WorkareaRect;
  mes.MinMaxInfo.ptMaxSize.X := R.Right - R.Left;
  mes.MinMaxInfo.ptMaxSize.Y := R.Bottom - R.Top;
  mes.Result := 0;
  inherited;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!