请问怎样实现点击一个图片弹出一个菜单

Question

procedure TForm1.Image1Click(Sender: TObject);
begin
  Self.PopupMenu1.Popup(100,100);
end;

Answer 1

还有一种方法
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssleft in shift then
    popupmenu1.popup(100,100);
end;

Answer 2

楼上的，你那种方法还少语句啊
procedure TForm1.Image1Click(Sender: TObject);
var
  P : TPoint;
begin
  GetCursorPos(P);
  PopupMenu1.Popup(P.x,P.y);  //放入一个弹出式菜单控件并设置
end;