[Delphi]WebBrowser 用自定义PopupMenu取代原来右键

Delphi下的WebBrowser是以IE为内核的浏览器.但是过于简单,故推荐大家使用Embedded Web Browser控件!

官方网站是:http://www.bsalsa.com/index.html

以下所说的WebBrowser均指该控件.

想要屏蔽WebBrowser原自带右键,很简单

function TForm1.EmbeddedWB1ShowContextMenu(const dwID: Cardinal;
  const ppt: PPoint; const pcmdtReserved: IInterface;
  const pdispReserved: IDispatch): HRESULT;
begin
result := 0;//只要返回结果为False,则不弹出右键
end;

如果想弹出其它的菜单,只要如下:

function TForm1.EmbeddedWB1ShowContextMenu(const dwID: Cardinal;
  const ppt: PPoint; const pcmdtReserved: IInterface;
  const pdispReserved: IDispatch): HRESULT;
var pt:TPoint;
begin
GetCursorPos(pt);
PopupMenu1.Popup(pt.x,pt.y); //弹出一个自定义菜单
result := 0;
end;

下期谈谈针对网页上不同控件,比如超链接,文本框,而弹出不同的自定义右键