Delphi 10.2.2弹出位置

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  Popup1.Position.X := (Self.Width + Popup1.Width) / 2;
  Popup1.Position.Y := (Self.Height + Popup1.Height) / 2;
  Popup1.Popup(False);
end;

我正试图将弹出窗口集中在移动设备上。即使在代码中设置了位置，弹出窗口仍会出现在用户点击按钮的任何位置。

如何让弹出窗口显示在屏幕中央？或者我希望它出现在哪里？

Answer 1

文档令我感到困惑，但它清楚地表明设置TPopup的位置不会做任何事情。

我最终在设计师中将TPopup的Placement更改为Center。然后在表单的FormResize（）中添加了...

 Popup1.VerticalOffset := Self.Height / 2;
 Popup1.HorizontalOffset := Self.Width / 2;

这适用于移动设备。