本文整理自网络,侵删。
WebBrowser1屏蔽右键菜单 先要添加ApplicationEvents1,指定其Message事件
//ApplicationEvents1.Event.OnMessageprocedure 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 xe5 android实现繁体字到简体字的转换函数
Delphi xe5 android 调用手机震动(通过jobject测试是否支持震动)
Delphi sizetostr 文件大小转换kb mb gb tb
更多相关阅读请进入《Delphi》频道 >>