小弟寫了一個程式中內有 webbrowser，寫好之後發現在裡面按右鍵，會像一般的 ie 一樣出現 ie 的 popupmenu，可是這樣使用者如果按下"內容"，就會知道那個webbrowser的網址了，為保密起見，請問要如何讓ie的popupmenu不要出現，或是換成我們自已用的popupmenu，或是msgbox

http://www.d-tnt.co.uk/readArticle.asp?id=3691&pg=2&cat=Internet&page=/delphitips.asp

unit  Unit1;    interface    uses
  Windows,  Messages,  SysUtils,  Classes,  Graphics,  Controls,  Forms,  Dialogs,  StdCtrls,  OleCtrls,  SHDocVw_TLB;    type
  TForm1  =  class(TForm)
    WebBrowser1:  TWebBrowser;
    procedure  MessageLoop(var  Msg:TMsg;var  Handled:Boolean);
    procedure  FormCreate(Sender:  TObject);      private
      {  Private  declarations  }
  public
      {  Public  declarations  }
  end;    var
  Form1:  TForm1;    implementation    {$R  *.DFM}
procedure  TForm1.MessageLoop(var  Msg:  TMsg;  var  Handled:  Boolean);
begin
if  (Msg.Message  =  WM_RBUTTONDOWN)  or  (Msg.Message  =  WM_RBUTTONUP)  then
handled:=True
    else  Handled  :=  False
end;
end;    procedure  TForm1.FormCreate(Sender:  TObject);
begin
Application.OnMessage  :=  MessageLoop;
end;
end.    //Send  by  Dennis

--- 屬於那自己生命的歌 不管是什麼顏色

完全正確，太感謝了

又出問題了： 在這樣做之後，發現不止twebbrowser，整個程式中其他的popupmenu都不動作了，要怎麼辦呢???

http://www.swissdelphicenter.ch/en/showcode.php?id=571

var 
  HookID: THandle;     function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall; 
var 
  szClassName: array[0..255] of Char; 
const 
  ie_name = 'Internet Explorer_Server'; 
begin 
  case nCode < 0 of 
    True: 
      Result := CallNextHookEx(HookID, nCode, wParam, lParam) 
      else 
        case wParam of 
          WM_RBUTTONDOWN, 
          WM_RBUTTONUP: 
            begin 
              GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName)); 
              if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then 
                Result := HC_SKIP 
              else 
                Result := CallNextHookEx(HookID, nCode, wParam, lParam); 
            end 
            else 
              Result := CallNextHookEx(HookID, nCode, wParam, lParam); 
        end; 
  end; 
end;     procedure TForm1.FormCreate(Sender: TObject); 
begin 
  HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId()); 
end;     procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  if HookID <> 0 then 
    UnHookWindowsHookEx(HookID); 
end;     procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Webbrowser1.Navigate('http://www.google.com'); 
end;     

--- 屬於那自己生命的歌 不管是什麼顏色