Firemonkey鼠标右键单击事件模拟

Question

我在通过声明弹出弹出式菜单时遇到问题; 这是代码：

P := Button1.LocalToAbsolute(TPointF.Create(Button1.Width / 2,Button1.Height / 2));
PopupMenu1.Popup(P.X,P.Y);

Firemonkey（Delphi XE6）会弹出菜单，但TMenuItems不会显示其高光功能（浅色背景上的浅色文字）。 TMenuItem似乎不活跃。 但如果我右键单击按钮一切正常。 我认为这是Firemonkey的一个错误，所以如果满足某个条件，我会触发一个右键单击事件。 可以在Firemonkey中这样做吗？