delphi多级菜单每级都添加onclick事件问题

Question

     请教各位,我在一级和二级菜单都定义 了onclick事件.运行时鼠标移动到一级菜单上时就自动触发了一级菜单的onclick事件,在没有鼠标点击的情况下.正常应该展开二级菜单,不知道什么原因?

Answer 1

我看明白楼主的意思了，
“鼠标移动到一级菜单上时就自动触发了一级菜单的onclick事件”
楼主在鼠标移动到一级菜单时，代码让其触发了onclick事件，但并没有展开该节点。onclick事件里加一行代码就行了：
NODE.Expand为什么没有自动展开，因为你所说的触发了onclick事件应该只是执行了他的onclick方法吧，并没有将这个CLICK传到后台去。