按键(50分)

  • 主题发起人 主题发起人 yjyj
  • 开始时间 开始时间
Y

yjyj

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在按键中触发popupmenu菜单,要求象mainmenu菜单一样,点击时就出现下拉菜单。
 
popupmenu1.popup(x,y);
 
只要将PopupMenu和需用的对象联结就可以了,很多控件属性里都有popupmenu这一项,选上就可以了
 
来晚了,waiwai的很方便,cakk的也可以。
 
不是所有控件都有popupmenu属性的.
 
yjyj的意思是用Mouse的左键点击出现下拉菜单。不知对否?

在OnMouseDown or OnMouseMove or OnMouseUp事情中使用
var
pos : TPoint;
begin
pos := ClientToScreen(Point(x, y));
PopupMenu.Popup(pos.x, pos.y);
end;
 
对!
补充一下
Pos:=ClientToScreen(Point(Button1.Left,Button1.Top+Button1.Height));
PopupMenu.Popup(Pos.x,Pos.y);
//弹出菜单在button下面
 
同意 cakk 可以为桌面建立一个 popupmenu
procedure wndproc(var message: tmessage); virtual:


procedure tform1。wndproc(var message:tmessage);
var
pos:tpoint;
begin
if message。lparam=wm_rbuttondown then
getcursor(pos);
popupmenu.popue(pos.x,pos.y)
end;
 
位置用
Mouse.CursorPos.X
Mouse.CursorPos.Y
更方便
 
多人接受答案了。
 
后退
顶部