Disable view source

Hi

Using Delphi 5.0 Pro. Is it possible to disable the 'View source' option on the pop-up menu that appears when you right click on the TWebBrowser component. Disabling the the pop-up menu completely is acceptable. I have tried adding my own pop-up menu and setting the popupmenu property of the web browser component to use this pop up menu, but it did not work, the default menu still appeared.

Thanks

John
LVL 1
nhojAsked:
Who is Participating?
 
EpsylonCommented:
:o)
0
 
EpsylonCommented:
You can protect your own pages in IE with:

<body oncontextmenu="return false" ...>
...
</body>
0
 
jlisloCommented:
Add the following to you HTML

<script language="JavaScript">
<!--  
if (navigator.appName.indexOf("Internet Explorer") != -1)  
document.onmousedown = noSourceExplorer;  
function noSourceExplorer(){if (event.button == 2 | event.button == 3)  
{  
alert("your message here!");}
}  
//-->    
</script>

JL
0
Cloud Class® Course: Amazon Web Services - Basic

Are you thinking about creating an Amazon Web Services account for your business? Not sure where to start? In this course you’ll get an overview of the history of AWS and take a tour of their user interface.

 
EpsylonCommented:
jlislo, what if it should disable the menu for all pages on the internet?
0
 
nhojAuthor Commented:
Epsylon's answer works just fine, and since this is a custom app using the Delphi web browser component I will accept this as an answer if Epsylon would like to post it as such.

Regards John
0
 
jlisloCommented:
Epsylon,

Try add the javascript code to the document in run time. This is just a thought I don't have D5 at work, I have to try it at home tonight.
0
 
intheCommented:
if you wish to disable the popup menu or use your own you can do it this:

procedure MessageLoop(var Msg:TMsg;var Handled:Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.MessageLoop(var Msg: TMsg; var Handled: Boolean);
var
 mouse:Tpoint;
begin
if msg.hwnd = webbrowser1.Handle then
  begin
   if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)
   then begin
    handled:=True;
     getcursorpos(Mouse); //popup your own menu
    popupmenu1.popup(Mouse.x,Mouse.y);
   end
  else Handled := False; //not rbutton
 end
else
Handled := false; //not webbrowser msg
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MessageLoop;
end;
0
 
SChertkovCommented:
It's not right.
You disable all popup menu from brower control
not only 'view source' option.
Right way is to implement IDocHostUIHandler,
and in IDocHostUIHandler:: ShowContextMenu
popup own menu.
0
 
EpsylonCommented:
nhoj, if you want to accept my answer you must reject jlislo's first...
0
 
nhojAuthor Commented:
Epsylon's comment woorks fine and is simple to implement, the fact that the pop-up menu does not appear at all does not matter since there are other functions on this menu that W also wanted to disable e.g. "Print" as I have my own print function which will print over the page properly.

Thanks

Regards John
0
 
EpsylonCommented:
Thank you, John.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.