WebBrowser控件的右键菜单怎么屏蔽呀

[hnwzs]

WebBrowser控件的右键菜单怎么屏蔽呀

[hnwzs]

不行呀，(msg.message=WM_rbuttondown)和(msg.hwnd=WebBrowser.Handle)单独测试都能测出来
用AND就测不出来了，是不是WebBrowser没有右键消息呀

[hottey]

procedure TForm1.mymessage(var msg:tmsg;var handled:boolean);
var mouse:tpoint;
begin
if (msg.message=WM_rbuttondown) and (msg.hwnd=WebBrowser.Handle) then
begin
getcursorpos(mouse);
handled:=true;
popupmenu1.Popup(mouse.x,mouse.y);
end;
end;

在Form Create中写：
application.OnMessage:=mymessage;

[jackie168]

procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message = WM_RBUTTONDOWN then
begin
Handled := True;
end;
end;

[wsy751022151]

是的，改下html代码，

[trainbox]

没法屏蔽的，IE窗口和普通窗口有很大的区别