在窗体上点击鼠标，怎样在鼠标点击的地方弹出活动菜单?

Question

在窗体上点击鼠标，怎样在鼠标点击的地方弹出活动菜单?

Answer 1

添加一个popmemu然后在你要出现的控件的popmenu属性连上就好了

Answer 2

给个例子你看看吧。
procedure TMAIN.ColorPanel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var rt:TRect;
begin
  if button=(mbLeft) then
  begin
    getwindowrect(TColorPanel(Sender).Handle,rt);
    sysope.Popup(rt.left,rt.top+TColorPanel(Sender).Height+3);
  end;
end;

Answer 3

popupmenu1.popup(mouse.CursorPos.X,mouse.CursorPos.y)