如何在cxbutton（devexpress Delphi）中单击左键显示弹出菜单？

Question

我有一个弹出菜单附加到cxbutton（Delphi的devexpress组件），右键单击显示菜单，但现在我需要通过鼠标左键单击它。

请检查cxbutton的所有属性，但似乎没有人这样做，该怎么办？

我正在使用Delphi 7。

Answer 1

你试过了吗？

procedure TForm1.cxButton1Click(Sender: TObject);
begin
  PopUpMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

？对我来说，这在D7中起作用，PopUpMenu出现在同一位置，如果它被右键单击。

Answer 2

如果您使用Dexpress的弹出框，则可以致电：

procedure TForm1.cxButton1Click(Sender: TObject);
begin
   dxBarPopupMenu1.PopupFromCursorPos
end;