Delphi模态窗体位置

Question

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

我将 Position 设置为 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;