WebBrowser 屏蔽右键菜单**

lanbaoshi

procedure TKBBD1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var mPoint   :   TPoint;
begin
      if IsChild(WebBrowser1.Handle,Msg.Hwnd) and
        ((Msg.Message = WM_RBUTTONDOWN)or(Msg.Message = WM_RBUTTONUP)) then
      begin
          GetCursorPos(mPoint);
          PopupMenu1.Popup(mPoint.X,   mPoint.Y);
          Handled:=True;
      end;
end;
代码不会执行！

zfang

嗯，楼主，你的类似于这样的用法在delphi中也是不可以的，不知道您试了没有。
大概的原因应该是8楼的帖子里说的。