webbrowser屏蔽鼠标的问题

Question

如何屏蔽掉webbrowser的鼠标右键,再屏蔽掉左键的双击和拖动功能,只保留左键的单击功能,以此达到用webbrowser浏览word文档时只能用左键翻页和关闭,不能进行打印,保存,选择等功能(键盘所有健已经屏蔽了)

Answer 1

//这是不是你要的？unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls;type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
var
hhk:hhook;
{$R *.dfm}
function mousehookproc(ncode:smallint;wparam,lparam:integer):hresult;stdcall;
begin
  //515:dbclick;516:rightbuttondown;517:rightbuttonup;
  if (wparam>=515)and(wparam<=517) then
    result:=-1
  else
  if ncode<0 then
    result:=callnexthookex(hhk,ncode,wparam,lparam)
  else
    result:=0;end;
procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('www.csdn.net');
hhk:=setwindowshookex(WH_MOUSE,@mousehookproc,0,getcurrentthreadid);
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
unhookwindowshookex(hhk);
end;end.

Answer 2

你给我的答案非常的正确,可是我使用webbrowser打开的是word文档,不知何故右键依然是有效的.这是什么原因?该如何解决,在线等待中,谢谢!

Answer 3

........
private
    { Private declarations }
    procedure ProcessMsg(var Msg: TMsg; var Handled: Boolean);
.......
procedure Tform1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := ProcessMsg;
end;procedure Tform1.ProcessMsg(var Msg: TMsg; var Handled: Boolean);
begin
      with Msg do
      if ((message = WM_RBUTTONDOWN) or
           (message = WM_RBUTTONDBLCLK)) or
           (message = WM_CONTEXTMENU) then
        begin
          Handled := True;
        end
end;

Answer 4

webborwser打开web的时候可以实现,打开doc文档就不行了,烦恼啊