关于FMX 单击出来右键菜单，并显示在当前下面

关于FMX  单击出来右键菜单，并显示在当前下面

procedure TForm1.btn6MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
var
LP: TPointF;
begin
LP := btn6.LocalToAbsolute(TPointF.Create(btn6.Width / 2, btn6.Height / 2 ));
LP := btn6.Scene.LocalToScreen(lP);
btn6.PopupMenu.PopupComponent := btn6;
btn6.PopupMenu.Popup(Round(LP.X), Round(LP.Y));
end;