Y yyhua Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-29 #1 如题。所说不是右键菜单，而是当左键点击图标是，弹出的。 注：图标是根据数据库中的数据动态添加的。
Z zhangkan Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-29 #2 此过程实现弹出菜单. procedure PopMenu; var MousePos:TPoint; begin begin GetCursorPos(MousePos); PopupMenu.Popup(MousePos.x,MousePos.y); end; end; 图标根据数据动态生成,请问你是要捕捉点击图标这个事件,还是弹出菜单?
此过程实现弹出菜单. procedure PopMenu; var MousePos:TPoint; begin begin GetCursorPos(MousePos); PopupMenu.Popup(MousePos.x,MousePos.y); end; end; 图标根据数据动态生成,请问你是要捕捉点击图标这个事件,还是弹出菜单?
Y yyhua Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-29 #5 首先谢谢各位的答复，非常感谢zhangkan。 基本上大问题已经解决，图标是根据数据动态生成，我所要捕捉的是点击图标这个事件。 前面我在listview里设了popupmenu属性后，在listview的任何地方都可以弹出菜单，而 不一定要点击图标后弹出，我的想法是鼠标单击或双击图标时，弹出菜单的。 现在又有新问题的发现，就是我在onSelectItem里直接调用zhangkan所说的那个过程，当 单击图标时，已经可以实现菜单的弹出了，但如果在下一次单击listview的空白地方时，还 是会弹出菜单，只有在各图标都没有被选中的情况下才没有上述情况发生。
首先谢谢各位的答复，非常感谢zhangkan。 基本上大问题已经解决，图标是根据数据动态生成，我所要捕捉的是点击图标这个事件。 前面我在listview里设了popupmenu属性后，在listview的任何地方都可以弹出菜单，而 不一定要点击图标后弹出，我的想法是鼠标单击或双击图标时，弹出菜单的。 现在又有新问题的发现，就是我在onSelectItem里直接调用zhangkan所说的那个过程，当 单击图标时，已经可以实现菜单的弹出了，但如果在下一次单击listview的空白地方时，还 是会弹出菜单，只有在各图标都没有被选中的情况下才没有上述情况发生。
M menxin Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-29 #6 那是因为你在过程里没有判断SELECT状态，应该用selcount 或selected判断一下 如 if ListView1.Selected<>nil then ......//弹出你的MENU
那是因为你在过程里没有判断SELECT状态，应该用selcount 或selected判断一下 如 if ListView1.Selected<>nil then ......//弹出你的MENU
