uses
MSHtml;
// 在控件标签additional中找到TApplicationEvents控件,拖到窗体上.在TApplicationEvents的OnMessage事件中加入以下代码:
// 替换右键菜单
procedure TForm1.ApplicationEvents1Message( var Msg: tagMSG; var Handled: Boolean);
var
mPoint: TPoint;
begin
if IsChild(WebBrowser.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint); // 得到光标位置
pm5.Popup(mPoint.X, mPoint.Y); // 弹出popupmenu1的菜单
Handled : = True;
end ;
end ;
或者
// 屏蔽右键菜单
procedure TForm1.ApplicationEvents1Message( var Msg: tagMSG; var Handled: Boolean);
begin
with Msg do
begin
if not IsChild(WebBrowser1.Handle, hWnd) Exit;
Handled : = ( message = WM_RBUTTONDOWN) or ( message = WM_RBUTTONUP) or ( message = WM_CONTEXTMENU);
end ;
end ;
// 在控件标签additional中找到TApplicationEvents控件,拖到窗体上.在TApplicationEvents的OnMessage事件中加入以下代码:
// 替换右键菜单
procedure TForm1.ApplicationEvents1Message( var Msg: tagMSG; var Handled: Boolean);
var
mPoint: TPoint;
begin
if IsChild(WebBrowser.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint); // 得到光标位置
pm5.Popup(mPoint.X, mPoint.Y); // 弹出popupmenu1的菜单
Handled : = True;
end ;
end ;
或者
// 屏蔽右键菜单
procedure TForm1.ApplicationEvents1Message( var Msg: tagMSG; var Handled: Boolean);
begin
with Msg do
begin
if not IsChild(WebBrowser1.Handle, hWnd) Exit;
Handled : = ( message = WM_RBUTTONDOWN) or ( message = WM_RBUTTONUP) or ( message = WM_CONTEXTMENU);
end ;
end ;