8

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

这可以正常工作，除了它没有考虑通常（但不总是）位于桌面底部的任务栏。因此，如果任务栏挡住了我的应用程序窗口，我的应用程序就会被遮挡。

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

4

3 回答 3

15

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

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

于 2009-09-15T03:15:11.213 回答
13

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

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

或者

Screen.Monitors[I].WorkareaRect
于 2009-09-15T03:21:48.080 回答
6

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

BoundsRect := Monitor.WorkareaRect;

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

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

来自 D2006 帮助：

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

于 2009-09-15T05:01:24.650 回答