我想点击一个图片，在点击的位置弹出一个下拉菜单， 请问怎么做？

[xinfei]

[cobi]

用一个popmenu控件，然后在image控件的popmenu属性中选中该控件，则点击图片时用鼠标右键可以调用菜单

[xinfei]

老大，你太快了，试试

[xinfei]

我想问下一下，有没有比较漂亮点的弹出菜单，不如哪个控件包里头有

[taxi]

procedure TForm1.Image1Click(Sender: TObject);
var
p: TPoint;
begin
GetCursorPos(p);
PopupMenu1.Popup(P.X, p.Y);
end;

[taxi]

procedure TForm1.Image1Click(Sender: TObject);
var
p: TPoint;
begin
GetCursorPos(p);
PopupMenu1.Popup(P.X, p.Y);
end;

[cobi]

到www.vclxx.org上找吧