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

CSDN论坛 > Delphi > VCL组件开发及应用

我想点击一个图片，在点击的位置弹出一个下拉菜单，请问怎么做？ [问题点数：69分，结帖人xinfei]

一键查看最优答案

确认一键查看最优答案？

本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！

取消

开通vip会员

⋅大家推荐一个好用的控件。 ⋅哪儿有李维的李维的《分布式多层应用系统篇》，和电子商务篇全套的电子书下载 ⋅在sql server里，　怎样查询在某一范围的日期值。h 更多帖子 关注私信空间博客 xinfei 本版专家分：131 结帖率 100%: 0 2001-12-05 14:55:06

回复数 6 只看楼主引用举报楼主

⋅三层结构下数据更新的回传问题 ⋅ADSL故障求助 ⋅求物业管理系统自定义收费公式的设计思路 更多帖子 关注私信空间博客 cobi 本版专家分：41098 榜眼 2001年总版技术专家分年内排行榜第二 金牌 2001年12月总版技术专家分月排行榜第一 银牌 2001年11月总版技术专家分月排行榜第二 红花 2001年12月 Delphi大版内专家分月排行榜第一 2001年11月 Delphi大版内专家分月排行榜第一: 用一个popmenu控件，然后在image控件的popmenu属性中选中该控件，则点击图片时用鼠标右键可以调用菜单

0 2001-12-05 15:09:16

只看TA 引用举报 #1 得分 50

xinfei 本版专家分：131: 老大，你太快了，试试

0 2001-12-05 15:11:49

只看TA 引用举报 #2 得分 0

xinfei 本版专家分：131: 我想问下一下，有没有比较漂亮点的弹出菜单，不如哪个控件包里头有

0 2001-12-05 15:14:10

只看TA 引用举报 #3 得分 0

⋅个人求职，寻Delphi的非MIS方面的开发工作。 ⋅上海盛大招聘3D程序员。 ⋅有没有懂3D的Delphi程序员，公司招人。 更多帖子 关注私信空间博客 taxi 本版专家分：14943 蓝花 2001年12月 Delphi大版内专家分月排行榜第三: procedure TForm1.Image1Click(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  PopupMenu1.Popup(P.X, p.Y);
end;

0 2001-12-05 15:15:08

只看TA 引用举报 #4    得分 19

⋅个人求职，寻Delphi的非MIS方面的开发工作。 ⋅上海盛大招聘3D程序员。 ⋅有没有懂3D的Delphi程序员，公司招人。 更多帖子 关注私信空间博客 taxi 本版专家分：14943 蓝花 2001年12月 Delphi大版内专家分月排行榜第三: procedure TForm1.Image1Click(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  PopupMenu1.Popup(P.X, p.Y);
end;

0 2001-12-05 15:16:45

只看TA 引用举报 #5    得分 0

⋅三层结构下数据更新的回传问题 ⋅ADSL故障求助 ⋅求物业管理系统自定义收费公式的设计思路 更多帖子 关注私信空间博客 cobi 本版专家分：41098 榜眼 2001年总版技术专家分年内排行榜第二 金牌 2001年12月总版技术专家分月排行榜第一 银牌 2001年11月总版技术专家分月排行榜第二 红花 2001年12月 Delphi大版内专家分月排行榜第一 2001年11月 Delphi大版内专家分月排行榜第一: 到www.vclxx.org上找吧

0 2001-12-05 15:30:31

只看TA 引用举报 #6 得分 0

收藏帖子