2,496
社区成员
发帖
与我相关
我的任务
分享如何在点击鼠标左键的时候，弹出一个弹出菜单？
我有一个“功能”按钮，我想在点击这个按钮的时候，弹出一个弹出菜单，就像点击右键的时候自动出现弹出菜单，我想把右键换成左键，各位大哥，该怎样做？？
...全文
请发表友善的回复…
发表回复
cjs5210 2003-09-13
- 打赏
- 举报
楼上大哥，我是这样的PopupMenu1.Popup(SpeedButton11.Left,SpeedButton11.Top);
但是出现的菜单不在按钮上，而是跑到屏幕顶上去了
但是出现的菜单不在按钮上，而是跑到屏幕顶上去了
lxpbuaa 2003-09-13
- 打赏
- 举报
PopupMenu1.Popup(10,10);
—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————
—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————
juky_liu 2003-09-13
- 打赏
- 举报
procedure TForm_main.Button1Click(Sender: TObject);
var
p:tpoint;
begin
getcursorpos(p);
PopupMenu1.popup(p.X,p.Y );
end;
var
p:tpoint;
begin
getcursorpos(p);
PopupMenu1.popup(p.X,p.Y );
end;
lqdmafeng 2003-09-13
- 打赏
- 举报
在弹出之前先将客户坐标转换为屏幕坐标！
lxpbuaa 2003-09-13
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
begin
with Button1.ClientToScreen(Point(0, 0)) do
PopupMenu1.Popup(x, y);
end;
—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————
begin
with Button1.ClientToScreen(Point(0, 0)) do
PopupMenu1.Popup(x, y);
end;
—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————
hwyang80 2003-09-13
- 打赏
- 举报
-_-
这个问题应该解决了吧
不需再讲了吧
这个问题应该解决了吧
不需再讲了吧
sy_315 2003-09-13
- 打赏
- 举报
在mousedown中写入
PopupMenu1.Popup(pt.X,pt.Y)
PopupMenu1.Popup(pt.X,pt.Y)
h2yang 2003-09-13
- 打赏
- 举报
同意楼上的意见.
在click中加入popupmenu就可以了.
在click中加入popupmenu就可以了.
chl_ccssddnn 2003-09-13
- 打赏
- 举报
Onclick事件加入楼上的，应该可以解决了
hwyang80 2003-09-13
- 打赏
- 举报
var
pt:tpoint;
begin
getcursorpos(pt);
PopupMenu1.Popup(pt.X,pt.Y);
^_^
pt:tpoint;
begin
getcursorpos(pt);
PopupMenu1.Popup(pt.X,pt.Y);
^_^
hwyang80 2003-09-13
- 打赏
- 举报
pt:point;
getcursorpos(pt);
PopupMenu1.Popup(pt);
getcursorpos(pt);
PopupMenu1.Popup(pt);
立志做一个佳娃~ 2003-09-13
- 打赏
- 举报
clienttoscreen
screentoclient
转换一下
screentoclient
转换一下
