在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
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;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论