Delphi ApplicationEvents1 WebBrowser1屏蔽右键菜单


本文整理自网络,侵删。

 
WebBrowser1屏蔽右键菜单  先要添加ApplicationEvents1,指定其Message事件

//ApplicationEvents1.Event.OnMessage
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  with Msg do
  begin
    if not IsChild(WebBrowser1.Handle, hWnd) then
      Exit;
      Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);
  end;
end;
复制代码

相关阅读 >>

Delphi监控指定进程防止被关闭

Delphi xe5 android实现繁体字到简体字的转换函数

Delphi xe5 android 调用手机震动(通过jobject测试是否支持震动)

Delphi trimright 删除字符串右边的空格

Delphi实现二分查找

Delphi文件捆绑器

Delphi sizetostr 文件大小转换kb mb gb tb

Delphi设置光标在edit右边

Delphi解析json格式化的日期

Delphi 让子窗体显示最大化

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

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

评论

管理员已关闭评论功能...