如何替换ActiveX控件的右键菜单为自己的poppupmenu?(50分)

安装了一个activeX控件后，该控件默认有一个popupmenu，怎样才能去掉该popupmenu,点右健时弹出我给它设置的popupmenu?

屏蔽右键消息 换成自己的

怎么屏蔽？

......
private
procedure mymessage(var msg:tmsg;var handled:boolean);
......
implementation

{$R *.DFM}


procedure TForm1.mymessage(var msg:tmsg;var handled:boolean);
begin
if (msg.hwnd=xxx.handle) then //xxx为控件name
begin
if msg.message =wm_rbuttondown then
begin
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
Handled := True;
end
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
application.onmessage:=mymessage;
end

在控件辕马中查找到弹出菜单的Popup事件，替换为你的弹出事件就ok！

to ：andy263
好像不行，if msg.message =wm_rbuttondown then 这句在点右健时仍为false；
（这条语句对delphi自带控件是起作用的）

to：tonii
没有源码只有一个ocx