Delphi模态窗体位置

Question

我有一个表单正在被另一个表单打开。

我将位置设置为 poOwnerFormCenter，以便在原始表单的位置打开新表单

但是，当我移动这个新表单然后返回到原始表单时，它显示的是我第一次打开新表单时的位置，而不是显示的位置我关闭了它

我该如何解决这个问题？

谢谢！

Answer 1

我对你的问题有点困惑，所以我会澄清我要在这里解决的问题！...

我认为你想要做的是

当 Form2 打开时，它位于 Form1 的中央，并且 Form1 被隐藏。

当 Form2 关闭时，会显示 Form1（正是它隐藏的位置）。

我认为你想要做的是让 Form1 显示 Form2 关闭的位置。

所以我猜你有一些像...这样的代码

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Form2.ShowModal;
end;

，并且你期望 Form2 更新 form1 的位置，因为你将 Form2 的位置设置为 poOwnerFormCenter

好吧，如果我猜对了所有这些，那么你需要做的就是当 Form2 关闭时更新 Form1 的头寸是

procedure TForm1.ButtonClick(Sender: TObject);
begin
  Form2.ShowModal;
  Left := Form2.Left;
  Top := Form2.Top;
end;

Answer 2

问题是您正在重复使用模态形式的相同实例。设置位置仅在第一次显示表单时有效。您必须在这里选择：

选项 1

您可以在每次关闭时销毁模态表单。实现此目的的方法之一是在表单的 OnClose 事件上添加这一行：

Action = caFree;

当然，这意味着您每次都必须从调用方重新创建模式表单。

选项 2

您必须在 OnShow 事件上手动设置模态表单的位置。

使用最适合您的选项。

Answer 3

（我猜）这是因为您每次显示表单时都会重新创建表单。也就是说，

with TForm2.Create(nil) do
  try
    ShowModal;
  finally
    Free;
  end;

因为每次显示 TForm2 类时都会创建一个新实例，并在表单关闭时销毁它，所以位置会发生变化；事实上，新的 TForm2 对象不可能记住任何先前的 TForm2 对象的位置。它们是两个不同的对象（是的，同一类，但这并不重要）！

最简单的解决方案是将 TForm2 添加到项目选项中的“自动创建表单”列表中。默认情况下它就在那里，但如果您手动创建它（正如我认为您所做的那样，并且如上面的代码片段所示），您应该将其从自动创建的表单列表中删除......

然后确保 Unit1 使用 Unit2，以便您可以访问来自驻留在 Unit1 中的 Form1 的 Unit2 中的全局 Form2 变量。编辑 Unit1 时，按 Alt+F11 即可执行此操作。

然后，您可以通过执行以下操作来显示 Form2：

Form2.ShowModal;

第一次显示时，它将尊重其 Position 参数，并将其自身定位在其所有者表单之上。但随后它会记住它的位置，因此第二次显示它时，它将位于第一次关闭的位置。