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。 e.g。

BoundsRect := Monitor.WorkareaRect;

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

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

从D2006帮助：

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

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

3 个答案: