| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/12/29 16:45:33 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 问个弱智的问题:单击鼠标左键弹出菜单怎么做？我做了一个效果不是很好啊。。 类似QQ的这种，我做了一个是在MOUSE DOWN里做，但是没有鼠标按下的效果，大家都是怎么做的？
- |
|||||
| 作者： |
|
2003/12/29 17:37:17 | ||||
| 1楼： | 呵呵，添加一个按钮，一个PopupMenu，然后建立与该按钮的连接就行了。 ---------------------------------------------- 大家好，我是Flyers。 是Delphi.Net版主，小弟会尽力解决大家的问题！谢谢支持！ |
|||||
| 作者： |
|
2003/12/29 18:02:16 | ||||
| 2楼： | 先创建一个PopupMenu菜单, procedure TForm1.FormClick(Sender: TObject); var p:Tpoint; begin GetCursorPos(P); PopupMenu1.Popup(P.x, P.y) end; 这样就可以像你说的那样了. ---------------------------------------------- <<努力自信爱心>>菜鸟中的菜鸟 |
|||||
| 作者： |
|
2003/12/29 19:00:44 | ||||
| 3楼： | procedure TForm1.FormClick(Sender: TObject); var Pt: TPoint; begin GetCursorPos(Pt); Pt := ClientToScreen(Pt); PopupMenu1.Popup(Pt.X, Pt.Y); end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2003/12/30 1:19:13 | ||||
| 4楼： | 把popupmenu的tracebutton设为Lbutton就可以了。 ---------------------------------------------- -我是天空一片云，漂泊天涯无定所 | __ o |__ __ __ |_, (__( | |__) (__( (__) |
|||||
| 作者： |
|
2003/12/30 9:50:33 | ||||
| 5楼： | 把popupmenu的tracebutton设为Lbutton就可以了。 不管用，我试了，我后来是用的PopupMenu.Popup(x,y)这么做的，效果一般，不过谢谢各位：） ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/30 10:37:30 | ||||
| 6楼： | sorry,是我错了。；-（ 把弹出事件放到mouse up就有按下的效果了。 ---------------------------------------------- -我是天空一片云，漂泊天涯无定所 | __ o |__ __ __ |_, (__( | |__) (__( (__) |
|||||
| 信息 |
| 登陆以后才能回复 |
