delphi右键弹出菜单

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

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

理论上来说 直接设置popupmenu 的trackbutton就可以 但是好像是不想的 你再 你需要弹出的菜单的控件做mousedown事件 例如下面我是做德form的mousedown事件： procedure tform1.formmousedown(sender: tobject; button: tmousebutton;   shift: tshiftstate; x, y: integer); var   p:tpoint; begin   getcursorpos(p);   if button=mbleft then     pm1.popup(p.x,p.y); end;