比桌面更大的窗口最大化

Question

在一台 XP 机器上，我的表单在最大化时比桌面大。这和Delphi有关还是XP中有些设置需要调整？

编辑； 如您所见，当边框图标就位时，大约 15% 的表单被截断，并且正是它们在表单最大化时应该在的位置。没有第二个监视器。

Answer 1

这是因为在旧版本的 Windows（包括 XP）中，最大化的窗口已经足够大，以至于窗口边框不可见。窗口边框没有被移除，只是窗口比屏幕稍微大了一点，然后在屏幕上居中，所以边框是不可见的。

如果您有多个显示器，您可以看到这一点：根据您的 Windows 版本，如果您在一个屏幕上最大化一个窗口，您可能会看到窗口的边缘出现在另一个显示器的一侧。

这不是错误，也不是通过 Windows 设置或 Delphi 解决的问题。

这在 Vista 中已在视觉上得到解决：边框仍然存在（并且窗口大小可能会报告与屏幕大小不同的大小）但未绘制悬垂边框。

您可以在Raymond Chen's blog post about the topic 上阅读更多内容。

Answer 2

很可能您的最终用户正在使用其中一种用于扩展桌面空间的软件。如果某些监视器和任何应用程序窗口总是根据工作区边界调整大小，这些程序的作用是扩展工作区大小。

我建议您尝试在最终用户计算机上运行此代码，以获取有关其屏幕大小、工作区大小、他使用多少个屏幕等的更多信息。

procedure CheckScreenInfo;
var I: Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Monitor count:'+IntToStr(Screen.MonitorCount));
  Memo1.Lines.Add('Form is on monitor:'+IntToStr(Form4.Monitor.MonitorNum));
  Memo1.Lines.Add('Desktop left:'+IntToStr(Screen.DesktopLeft));
  Memo1.Lines.Add('Desktop top:'+IntToStr(Screen.DesktopTop));
  Memo1.Lines.Add('Desktop width:'+IntToStr(Screen.DesktopWidth));
  Memo1.Lines.Add('Desktop height:'+IntToStr(Screen.DesktopHeight));
  Memo1.Lines.Add('Screen width:'+IntToStr(Screen.Width));
  Memo1.Lines.Add('Screen height:'+IntToStr(Screen.Height));
  Memo1.Lines.Add('Work area left:'+IntToStr(Screen.WorkAreaLeft));
  Memo1.Lines.Add('Work area top:'+IntToStr(Screen.WorkAreaTop));
  Memo1.Lines.Add('Work area width:'+IntToStr(Screen.WorkAreaWidth));
  Memo1.Lines.Add('Work area height:'+IntToStr(Screen.WorkAreaHeight));
  for I := 0 to Screen.MonitorCount -1 do
  begin
    Memo1.Lines.Add('#####-Monitor '+IntToStr(Screen.Monitors[I].MonitorNum)+'-#####');
    Memo1.Lines.Add('Monitor left:'+IntToStr(Screen.Monitors[I].Left));
    Memo1.Lines.Add('Monitor top:'+IntToStr(Screen.Monitors[I].Top));
    Memo1.Lines.Add('Monitor width:'+IntToStr(Screen.Monitors[I].Width));
    Memo1.Lines.Add('Monitor height:'+IntToStr(Screen.Monitors[I].Height));
    Memo1.Lines.Add('Monitor workarea top:'+IntToStr(Screen.Monitors[I].WorkareaRect.Top));
    Memo1.Lines.Add('Monitor workarea left:'+IntToStr(Screen.Monitors[I].WorkareaRect.Left));
    Memo1.Lines.Add('Monitor workarea width:'+IntToStr(Screen.Monitors[I].WorkareaRect.Width));
    Memo1.Lines.Add('Monitor workarea height:'+IntToStr(Screen.Monitors[I].WorkareaRect.Height));
    Memo1.Lines.Add('Monitor bounds top:'+IntToStr(Screen.Monitors[I].BoundsRect.Top));
    Memo1.Lines.Add('Monitor bounds left:'+IntToStr(Screen.Monitors[I].BoundsRect.Left));
    Memo1.Lines.Add('Monitor bounds width:'+IntToStr(Screen.Monitors[I].BoundsRect.Width));
    Memo1.Lines.Add('Monitor bounds height:'+IntToStr(Screen.Monitors[I].BoundsRect.Height));
  end;
end;

Answer 3

您确定屏幕偏移/尺寸正确吗？边缘可能在桌面区域之外，但并不明显。尝试进入显示器校准菜单并验证左上角/右下角偏移。

也可以将屏幕尺寸设置为大于屏幕可以处理的尺寸。

在桌面上移动时屏幕会滚动吗？

如果是这样，我认为这就是问题所在，在这种情况下，您需要调整屏幕分辨率或桌面设置。

不过，我的赌注是第一个解决方案。