[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;

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