如何用按钮排列弹出菜单

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开始。

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