屏蔽WebBrowser的菜单

Question

如题，另外还有什么方法可屏蔽IE的默认快捷方式，如F5,Ctrl+属性键等

Answer 1

要屏蔽掉右键菜单，完美的解决方法是实现IDocHostUIHandler.ShowContexMenu返回S_OK就可以了，你必须
自己实现这个接口，需要用到的接口定义如下
  IDocHostUIHandler = interface(IUnknown)
    ['{bd3f23c0-d43e-11cf-893b-00aa00bdce1a}']
    function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;
      const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT; stdcall;
    function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;
    function ShowUI(const dwID: DWORD; const pActiveObject: IOleInPlaceActiveObject;
      const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;
      const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;
    function HideUI: HRESULT; stdcall;
    function UpdateUI: HRESULT; stdcall;
    function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;
    function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
    function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;
    function ResizeBorder(const prcBorder: PRECT;
      const pUIWindow: IOleInPlaceUIWindow;
      const fRameWindow: BOOL): HRESULT; stdcall;
    function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID;
      const nCmdID: DWORD): HRESULT; stdcall;
    function GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD): HRESULT; stdcall;
    function GetDropTarget(const pDropTarget: IDropTarget;
      out ppDropTarget: IDropTarget): HRESULT; stdcall;
    function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;
    function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR;
      var ppchURLOut: POLESTR): HRESULT; stdcall;
    function FilterDataObject(const pDO: IDataObject;
      out ppDORet: IDataObject): HRESULT; stdcall;
  end;
  
  ICustomDoc=interface(IUnknown)
    ['{3050f3f0-98b5-11cf-bb82-00aa00bdce0b}']
    function SetUIHandler(const pUIHandler:IDocHostUIHandler):HRESULT; stdcall;
  end;ICustomDoc接口是设置IDocHostUIHandler的接口
使用如下
(webbrowser1.document as ICustomDoc).SetUIHandler(IDocHostUIHandler的实例);

Answer 2

用
EmbeddedWb
比較簡單
http://www.euromind.com/iedelphi/embeddedwb.htmDisable the Context MenuUse property OnShowContextMenu to manipulate the context menu, that appears when you right-click the mouse.To disable the context menu you only need to add one line of code:Function TForm1.EmbeddedWB1ShowContextMenu(const dwID: Cardinal;
const ppt: PPoint; const pcmdtReserved: IUnknown;
const pdispReserved: IDispatch): HRESULT;
begin
    result := S_OK;
end;
 

Answer 3

satanmonkey(撒旦) 
說的已經是正解了

Answer 4

EmbeddedWb
其实是把我说的方法封装了一下。