如何使WebBrowser1的菜单不要弹出来？

Question

procedure ApplicationEvents1Message(var Msg: tagMSG;
       var Handled: Boolean);
procedure TDownForm.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  Handled := False;
  if IsChild(Wb.Handle, Msg.Hwnd) and
     ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
  begin
    Handled:=True;
  end;
end;
procedure TDownForm.FormCreate(Sender: TObject);
begin
  Application.OnMessage := ApplicationEvents1Message;
end;
procedure TDownForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.OnMessage := nil;
end;

Answer 1

谢谢了！kxy(手举穿肠毒药，怀抱刮骨钢刀) 兄

Answer 2

不过我还想问一下，我在运行时，总是通不过呀，Application.OnMessage := ApplicationEvents1Message;好像有问题

Answer 3

还有，msg和handled两个参数具体在什么地方用到