Question

delphi右键弹出菜单

设置了一个组件的弹出菜单，但我现在要做的是：先判断如果为true才弹出，可是判断是判断了，判断完了它还是弹出了。。。咋办。。。。。

Answer 1

可以在TPopupMenu的onPopup事件中写代码，设置各MenuItem的Enabled或者Visible的属生来设置各个弹出菜单见的可用性和可见性。

追问

不是吧，每个都设置？万一Item是动态添加的呢

追答

可以遍历此弹出菜单组件下的所有menuitem，设置
如果要禁止弹出，那就放个Timer实时监控判断根据结果设置此控件的popupmenu为nil或者为弹出菜单了
还有可以用TActionList组件，关联到TMenuItem,然后在TActionList的onupdate里判断也行。

追问

恩，就用Visible来解决。

不知道能否帮我看下这个问题：
http://zhidao.baidu.com/question/554525506.html#