首页 » 文章随笔 » 技巧教程 » delphi中如何自定义dcef3的右键菜单?

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

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

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默认右键菜单的功能,可以自己用代码很轻松的实现!

未经允许不得转载:百脑问 » delphi中如何自定义dcef3的右键菜单?

×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开微信扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

分享到:更多 ()

评论 抢沙发

评论前必须登录!

百脑问 创新坚持 杰然不同

赞助我们联系我们
数据查询次数:19 消耗时间:0.641 秒, 使用内存: 20.97MB
您好,有什么可以帮您吗!