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

Question

使用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;

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

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

Answer 1

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

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

Answer 2

您应该使用Screen.WorkArea*属性:

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

要么

Screen.Monitors[I].WorkareaRect

Answer 3

要确定当前窗体的工作区，请使用 Monitor.WorkareaRect。例如

BoundsRect := Monitor.WorkareaRect;

将表单大小设置为最大区域而不最大化它。

您还应该查看TCustomForm.MakeFullyVisible方法。

来自 D2006 的帮助：

“MakeFullyVisible 检查表单是否完全适合指定的监视器。如果不是，它会重新定位表单以使其适合（如果可能）。”