delphi webbrowser屏蔽右键菜单防止右键防止ctrl N_delphi webbrowser edge模式右键菜单-CSDN博客

本文链接：https://blog.csdn.net/fogbow622/article/details/134673998

本文介绍了如何在Delphi中通过事件处理和消息过滤，阻止WebBrowser控件中的右键菜单以及防止用户使用Ctrl+N快捷键。通过`ProcessMsg`和`ApplicationEvents1Message`等方法实现对浏览器行为的控制。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

{
关键字=webbrowser屏蔽右键菜单防止右键防止ctrl N
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 21:44:46
数字签名=B1779CEF8D102A9A324F1118A5BD04C2
}

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, MSHtml,
AppEvnts, ActiveX,
ComCtrls;

procedure TForm1.ProcessMsg(var Msg: TMsg; var Handled: Boolean);
begin
{webbrowser屏蔽右键菜单
防止右键
防止ctrl+N
}
//防止ctrl+N
if (Msg.Message = WM_KEYdown) and (Msg.wParam = 78) and ((GetKeyState(VK_CONTROL) and $8000) <> 0) then
begin
Handled := true;
exit;
end;
//防止右键
if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP) or (Msg.Message = WM_CONTEXTMENU) then
begin
Handled := true;
exit;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Silent := true;
Application.OnMessage := ProcessMsg;
end;

procedure TForm1.ApplicationEvents1ActionExecute(Action: TBasicAction;
var Handled: Boolean);
begin
end;
//屏蔽右键菜单

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;