Question

delphi popupmenu 我想讲dbgrid表中某一列的值动态加入到popupmenu快捷菜单的二级子菜单中，如何实现？

如：QQ中右击将某好友移动至别的分组中级联菜单中，如何将所有的分组加入的右击菜单的移至的

Answer 1

加入到弹出式菜单的子项目后,再选中某项某列,右键单击后,修改DBGRID中的数据为子菜单的项目值.挺有创意的,不过,DBGRID本身就有下拉列表的功能,只是你没有用到而已,特别是那个DBGRIDEH组件更是如此,但是我还是反对使用DBGRID来编辑修改数据.因为第一会使用户头昏眼花,第二容易误操作数据.只要你在DBGRID中编辑数据,那么,它的只读属性就要为假,如果用户在浏览数据时,随便碰到了键盘上的什么键,都会修改DBGRID中的数据,修改后只要将光标上移一行或下移一行数据就保存到数据库了.因此我做程序时,通常将它的只读属性设置为真.

Answer 2

针对popupmenu的事件OnPopup处理就可以，在这个事件中处理相关的菜单项，比如启用、禁用、删除、增加子项等

追问

谢谢了，这个问题我解决了，但是怎么在动态创建的二级级联菜单的选项中添加事件呢？

追答

item := TMenuItem.Create(Owner);
item.OnClick := 事件定义部分