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

通过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;

如果MyForm.Width>screen.DesktopWidth，则
MyForm.Width:=screen.DesktopWidth；
如果MyForm.Height>screen.DesktopHeight，则
MyForm.Height:=screen.DesktopHeight；
如果（MyForm.Left+MyForm.Width）>screen.DesktopWidth，则
MyForm.Left:=screen.DesktopWidth-MyForm.Width；
如果MyForm.Left<0，则MyForm.Left:=0；
如果（MyForm.Top+LogoAppForm.Height）>screen.DesktopHeight，则
MyForm.Top:=screen.DesktopHeight-LogoAppForm.Height；
如果MyForm.Top<0，则MyFormTop:=0；

这是可行的，只是它没有考虑通常（但并非总是）位于桌面底部的任务栏。因此，如果任务栏挡住了我的应用程序窗口，我的应用程序就会变得模糊

---

我如何获得屏幕的可用位置和大小设置，而不包括任务栏的位置？

我不确定Windows是否真的能像你想象的那样工作-我有多个显示器，但它们的高度不同-因此我的桌面在所有显示器上的高度并不一致

---

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

您应该使用屏幕。WorkArea*属性：

  Screen.WorkAreaRect
  Screen.WorkAreaHeight
  Screen.WorkAreaLeft
  Screen.WorkAreaTop
  Screen.WorkAreaWidth

或

---

要确定当前窗体的工作区域，请使用Monitor.WorkareaRect。e、 g

BoundsRect := Monitor.WorkareaRect;

将窗体大小设置为最大区域而不使其最大化

你也应该看看这个方法

从D2006帮助：

---

“MakeFullyVisible检查窗体是否完全适合指定的监视器。如果不适合，它将重新定位窗体，以便尽可能适合它。”

感谢您的提示。你没有详细说明怎么做，所以我得把它全部解决。。。但这是正确的想法。Screen.Monitors[I]。WorkAreaRect是我需要的函数，garethm没有提到。谢谢没有监视器[I]，它只提供主监视器。我必须遍历监视器才能正确执行此操作。MakeFullyVisible不是正确的函数。虽然它会使窗体显示在可见区域内，但如果窗体在两个监视器上被拆分但完全可见，它也会更改窗体的位置——在后一种情况下，我不想移动它。但感谢您指出这个函数。我怀疑它可能不能完全实现所需的功能，我只是最近才“发现”了它。它似乎也不使用工作区。

BoundsRect := Monitor.WorkareaRect;