user-interface - 如何用按钮排列弹出菜单

Question

我想出了一个由按钮触发的弹出菜单的问题，该菜单靠近触发它的按钮。

我的解决方案如下所示：

procedure TfLoadEntrySSP.cxBbtnPrintOutClick(Sender: TObject);
begin
  with Sender as TcxButton do begin
    pmReport.Popup(left, ClientToScreen(Point(left,top)).y+height+5) ;
  end;
end;

这将显示菜单与从按钮下方 5px 开始的按钮左对齐。

也许还有其他人有同样的问题，需要快速简单的修复。我希望这可以在这种情况下有所帮助。

标签： user-interfacedelphipopupposition