程序在最小化时关闭时错误的窗口位置值

Question

在我的 Windows 7 桌面上，我将 Windows 任务栏附加在屏幕左侧（而不是默认设置在底部），并在屏幕顶​​部附加了一个自定义桌面工具栏（“True Launch Bar”）。

在一个 Delphi XE8 VCL 项目中，我将主窗口位置值（formMain.Top 和 formMain.Left）保存在 FormClose 事件中，然后在程序启动时，我使用这些值在 @ 中恢复主窗口位置987654326@事件。

这通常运作良好。 然而，当程序在 MINIMIZED (formMain.WindowState = wsMinimized) 时关闭时，表单位置值是错误的（即被工具栏的宽度/高度减少），因此窗口被恢复在程序开始时位置错误。

那么我该如何解决这个问题呢？

编辑：我试过大卫提到的other solution：

var
  WindowPlacement: TWindowPlacement;
  R: TRect;
....
  WindowPlacement.Length := SizeOf(WindowPlacement);
  Win32Check(GetWindowPlacement(formMain.Handle, @WindowPlacement));
  R := WindowPlacement.rcNormalPosition;
  CodeSite.Send('formMainLeft by WinAPI', R.Left);        // normal: 323 minimized: 323
  CodeSite.Send('VCL formMain.Left',      formMain.Left); // normal: 423 minimized: 323

但是，这会产生同样的问题，因为它没有考虑工具栏占用的空间，因为它只获取 WORK AREA 值。

此外，这不是大卫提到的重复问题，而是类似的问题。这个问题源于最小化状态下的错误屏幕值，而另一个问题是关于整体恢复状态和大小。

另请注意：我不想恢复窗口状态（例如最小化）AND 位置，但只恢复窗口位置，所以我不能使用 David 在另一个问题中提到的 SetWindowPlacement。

EDIT2：我现在已经用这段代码解决了这个问题：

  if formMain.WindowState = wsMinimized then
  begin
    MinimizedOffsetTop  := Screen.WorkAreaTop;
    MinimizedOffsetLeft := Screen.WorkAreaLeft;
  end
  else if formMain.WindowState = wsNormal then
  begin
    MinimizedOffsetTop  := 0;
    MinimizedOffsetLeft := 0;
  end;
  SettingsIni.WriteInteger('Persistence', 'Top',  formMain.Top  + MinimizedOffsetTop);
  SettingsIni.WriteInteger('Persistence', 'Left', formMain.Left + MinimizedOffsetLeft);

（在窗口最大化的情况下，我不保存和恢复窗口位置，只保存和恢复最大化窗口状态）。

Answer 1

当一个窗口被最小化时，它会记住最后的标准化边界，并在您恢复窗口时将自己恢复到那里。这些界限可通过GetWindowPlacement 提供给您。此 API 返回工作区相对坐标。这样做是因为这允许窗口最小化并恢复到相同的工作区相对位置，即使工作区在其间发生了变化。

当您要求最小化窗口的Left 和Top 时，显然VCL 调用GetWindowPlacement。否则它将如何获得它返回的坐标？当然，它会返回让您感到困惑的工作区相对坐标。人们可能会认为这些属性有时与屏幕相关而有时与工作区域相关是一个错误。

您的解决方案很明显。调用GetWindowPlacement获取工作区相对坐标。当您需要重新应用这些坐标时，请致电SetWindowPlacement。

您说您不能使用SetWindowPlacement，因为这会强制窗口最小化。但事实并非如此。将showCmd 成员设置为SW_SHOWNORMAL 或SW_RESTORE。

多年来，我们一直在使用这些 API 来存储和恢复窗口位置。众所周知，它们运作良好。