如何在Delphi中获取屏幕的可用坐标

发布时间：2020-12-15 04:10:05 所属栏目：大数据来源：网络整理

导读：使用Screen.DesktopHeight和Screen.DesktopWidth,我可以获得“虚拟”桌面的大小,我相信它适用于一个或多个监视器. 我将应用程序的位置(顶部和左侧)和大小(高度和宽度)保存到注册表中.当它打开时,我想确保它完全可见,因为它可能部分地移动到可见区域之外,或者

使用Screen.DesktopHeight和Screen.DesktopWidth,我可以获得“虚拟”桌面的大小,我相信它适用于一个或多个监视器.

我将应用程序的位置(顶部和左侧)和大小(高度和宽度)保存到注册表中.当它打开时,我想确保它完全可见,因为它可能部分地移动到可见区域之外,或者屏幕尺寸可能已经改变,例如通过屏幕设置或移除监视器.

我基本上可以用这段代码来做：

if MyForm.Width > screen.DesktopWidth then 
  MyForm.Width := screen.DesktopWidth;

if MyForm.Height > screen.DesktopHeight then 
  MyForm.Height := screen.DesktopHeight;

if (MyForm.Left + MyForm.Width) > screen.DesktopWidth then 
  MyForm.Left := screen.DesktopWidth - MyForm.Width;
if MyForm.Left < 0 then MyForm.Left := 0;

if (MyForm.Top + LogoAppForm.Height) > screen.DesktopHeight then 
  MyForm.Top := screen.DesktopHeight - LogoAppForm.Height;
if MyForm.Top < 0 then MyFormTop := 0;

这没关系,除了它没有考虑通常(但不总是)在桌面底部的任务栏.因此,如果任务栏妨碍了我的应用程序窗口,我的应用程序就会变得模糊不清.

如何获取排除任务栏位置的屏幕的可用位置和大小设置？

解决方法

我不确定Windows是否真的像您认为的那样工作 – 我有多个显示器,但它们没有相同的高度 – 所以我的桌面在所有显示器上没有统一的高度.

我所做的是使用Screen.MonitorCount和Screen.Monitors数组来确定哪个监视器包含大部分窗口,然后在该屏幕上找到合适的矩形. TMonitor的WorkareaRect属性为您提供特定监视器上工作区域的界限,不包括任何任务栏或工具栏.

（编辑：李大同）

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