Delphi中禁止WebBrowser右键的方法

本文整理自网络，侵删。

 Delphi中禁止WebBrowser右键的方法

uses MSHtml;

//在控件标签additional中找到TApplicationEvents控件，拖到窗体上．在TApplicationEvents的OnMessage事件中加入以下代码：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = wm_rbuttondown) or (Msg.message = wm_rbuttonup) or
(msg.message = WM_RBUTTONDBLCLK) then
begin
if IsChild(Webbrowser1.Handle, Msg.hwnd) then
Handled := true;//如果有其他需要处理的，在这里加上你要处理的代码
end;
end;
 

相关阅读 >>

Delphi android 拨打电话

Delphi android 安卓系统 关闭打开(显示隐藏)输入法

Delphi 自带的字符串分割函数

Delphi 删除指定字符串的所有实例

Delphi 根据开始和结束符取得中间字符串

Delphi showmainform := false 失效的解决办法

删除Delphi组件tstringlist中的重复项目

Delphi idhttp批量上传图片

Delphi 域名转ip并判断ip是否可以联通 复制代码

在Delphi xe2和xe3开发的程序中加入管理员权限申请

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

转载请注明出处：木庄网络博客 » Delphi中禁止WebBrowser右键的方法