反正分多，再问个问题，在Image上按右键弹出POPUPMENU时

Question

GetCursorPos(tp);
pmnu.popup(tp.x,tp.y);

Answer 1

不用呀。
只要你选Image控件的PopupMenu属性就可以了。

Answer 2

奇怪，你的popmenu不是跟着鼠标移动的么？

Answer 3

它没有跟着鼠标走，在image1的mosedown事件中，我的程序如下：PopUpMenu1.Popup(x,y);
当我把窗口最大化或者移动后，都没有在我鼠标点的地方弹出，我的窗口是MDI窗口，上面放了一个PANEL组件，PANEL上放了IMAGE组件，IMAGE的PopupMenu为PopupMenu1

Answer 4

procedure TForm1.Image1Click(Sender: TObject); //在 Image1 的 OnClick 事件中写入
var
  P : TPoint;
begin
  GetCursorPos(P);
  PopupMenu1.Popup(P.x,P.y);  //放入一个弹出式菜单控件并设置
end;

Answer 5

把 OnClick 改为 OnMouseDown 即可判断左右鼠标按键，并作相应处理.

Answer 6

不用呀。
只要你选Image控件的PopupMenu属性就可以了。 这样设置你的popupMenu就跟鼠标走了，而且不要任何编程，为什么不这样用呢？

Answer 7

不用呀。
只要你选Image控件的PopupMenu属性就可以了。 这样设置你的popupMenu就跟鼠标走了，而且不要任何编程，为什么不这样用呢？

Answer 8

不用呀。
只要你选Image控件的PopupMenu属性就可以了。 这样设置你的popupMenu就跟鼠标走了，而且不要任何编程，为什么不这样用呢？

Answer 9

在控件栏那里选一个popuMenn的控件，然后写Code,
在Image1的Mouse_up事件里面写程序，
 if button=*right then
 begin
    PopupMenu1.Popup(x+50,y+100);  
end
只要你调节下X、Y的值，一切都搞定，加分