Y yjyj Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-23 #1 如何在按键中触发popupmenu菜单,要求象mainmenu菜单一样,点击时就出现下拉菜单。
W waiwai Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-23 #3 只要将PopupMenu和需用的对象联结就可以了,很多控件属性里都有popupmenu这一项,选上就可以了
X xinglong Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-23 #6 yjyj的意思是用Mouse的左键点击出现下拉菜单。不知对否? 在OnMouseDown or OnMouseMove or OnMouseUp事情中使用 var pos : TPoint; begin pos := ClientToScreen(Point(x, y)); PopupMenu.Popup(pos.x, pos.y); end;
yjyj的意思是用Mouse的左键点击出现下拉菜单。不知对否? 在OnMouseDown or OnMouseMove or OnMouseUp事情中使用 var pos : TPoint; begin pos := ClientToScreen(Point(x, y)); PopupMenu.Popup(pos.x, pos.y); end;
J Jetideas Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-23 #7 对! 补充一下 Pos:=ClientToScreen(Point(Button1.Left,Button1.Top+Button1.Height)); PopupMenu.Popup(Pos.x,Pos.y); //弹出菜单在button下面
对! 补充一下 Pos:=ClientToScreen(Point(Button1.Left,Button1.Top+Button1.Height)); PopupMenu.Popup(Pos.x,Pos.y); //弹出菜单在button下面
阿 阿蒙 Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-23 #8 同意 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;
同意 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;
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-23 #9 位置用 Mouse.CursorPos.X Mouse.CursorPos.Y 更方便