如何在OnMenuPopup事件中，不让菜单弹出？(30分)

我也曾对此迷惑过。目前我只找到了在TreeView上控制弹出菜单的方法。
OnContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
如果不需弹出菜单的话，Handled := True;
其它TWinControl上所设置的菜单可以参照此方法，最多你加多一个消息句柄：
WMContextPopup。

接受答案了.