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 xe中使用tchart绘制平滑曲线

Delphi实现二分查找

Delphi xe5 for android 调用java类库必看的文件

Delphi processid, process handle, window handle 之间的互相转换

Delphi messagebox 使用

Delphi tanimate组件

Delphi sender 的用法举例

Delphi bmp 转换jpg

Delphi ini文件操作 tinifile、tmeminifile

Delphi 先加载原内容在写入增加新内容

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

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