delphi中如何自定义dcef3的右键菜单？

delphi中TChromium控件dcef3的右键菜单默认是这样的

如何修改成自己的菜单呢？或者自定义dcef3的右键菜单呢？

1. 在dcef3窗体中添加TApplicationEvents控件aplctnvnts1!
2. 添加TPopupMenu控件pm1，并设置好自定义的dcef3的右键菜单及功能.
3. 在TApplicationEvents控件的OnMessage事件中添加如下代码。

   procedure TMainForm.aplctnvnts1Message(var Msg: tagMSG; var Handled: Boolean);
   var
     mPoint: TPoint;
   begin
     if IsChild(chrm1.Handle, Msg.Hwnd) and ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
     begin
       GetCursorPos(mPoint); //得到光标位置
       pm1.Popup(mPoint.X, mPoint.Y); //弹出popupmenu的菜单
       Handled := True;
     end;
   end;

   这样你就不用让用户看TChromium的默认英文右键菜单了!对于TChromium默认右键菜单的功能，可以自己用代码很轻松的实现!