delphi - 将 TPopupMenu 与窗体的右侧对齐？

Question

TPopupMenu 如何与窗体的右侧对齐？问题是，在调用 Popup(X, Y: Integer) 之前，似乎没有办法获取弹出菜单的宽度。

我正在尝试获得与 Chrome 中的系统菜单类似的行为。

Answer 1

您也可以设置 Alignment到 paRight 并调用

with ClientToScreen(Point(ClientWidth - 1, 0)) do
  Popup(X, Y);