关于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;

上一篇:HDU2199,HDU2899,HDU1969,HDU2141--(简单二分)


下一篇:在windows右键菜单中加入自己的程序 [转载]