Rechtsklick im webbrowser unterbinden

[noowner]

Hallo,
möchte mit der webbrowserkomponente texte mit links und farbigen hervorhebungen ausgeben.
wie kann ich nun verhindern, dass man mit einem rechtsklick dieses IEmenü mit Quelltext einsehen etc sieht?

gruß

[toms]

Hallo

Beim TEmbeddedWB kannst du im OI
DisabledPopupMenus := [rcmAll] setzen. Somit werden sämtliche PopupMenus nicht angezeigt.


TWebbrowser: TApplicationEvents Komponente auf die Form setzen und im OnMessage folgenden Code schreiben:

Delphi-Quellcode:

procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) then
  begin
    Handled := IsChild(Webbrowser1.Handle, Msg.hwnd);
  end;
end;

[noowner]

Hey, danke!
hat mir sehr geholfen!

[Piro]

Ich bin über den Thread gestossen.

Jetzt frage ich mich, wie man die Aktualisierung über F5 noch unterbindet.

Habe mal folgendes versucht aber leider ohne Erfolgt.

Delphi-Quellcode:

procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) or(Msg.Message = VK_F5) then
  begin
    Handled := IsChild(Webbrowser1.Handle, Msg.hwnd);
  end;
end;

Wo müsste man ansetzen?

[toms]

Einen Refresh kann man auch via Kontektmenü auslösen. Dann bringt es nichts, nur F5 etc. abzufangen.

Mit dem TEmbeddedWB od. TEwbCore kann man eine Aktualisierung der Seite ganz einfach verhindern:

Delphi-Quellcode:

procedure TForm1.EmbeddedWB1Refresh(Sender: TCustomEmbeddedWB;
  CmdID: Integer; var Cancel: Boolean);
begin
  Cancel := True;
end;

[Piro]

Ich schau mir das mal an.

Danke