本人初学DELPHI：如何在TWEBBROWSER中使用自己的POPUPMENU，入即给分

Question

我现在只能做到屏蔽鼠标右键菜单,
但我还想使用自己定义的鼠标菜单,该如何做?

Answer 1

拦截消息!procedure ApplicationMessage(var Msg: tagMSG;var Handled: Boolean);procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=ApplicationMessage;
end;procedure TForm1.ApplicationMessage(var Msg: tagMSG; var Handled: Boolean);
var p:TPoint;
begin
 if IsChild(WebBrowser1.Handle, Msg.Hwnd) and (Msg.Message = WM_RBUTTONDOWN) then
  begin
    GetCursorPos(p);
    PopupMenu1.Popup(p.X,p.Y);
    Handled:=True;
  end;
end;