TWebbrowser -> kein Maus zugriff

[BlueBong]

Hallo miteinander

Wie kann ich einstellen, dass man auf die Links in einer TWebBrowser-Kompontente kein Zugriff hat.

Also die Browserkomponente soll ca. so wie eine Editkomponente bei gesetzte Readonly funktionieren und daher nur über die Adressleiste steuerbar sein.

Vielen dank schon im Voraus.

MfG Michael

[Ratte]

Hi,

lwg enfach 'nen transparentes Image drüber, fertig!

Ratte

[Mystic]

Zitat:

Zitat von Ratte

Hi,

lwg enfach 'nen transparentes Image drüber, fertig!

Ratte

Dann kann man auch nicht mehr scrollen, Text markieren, etc.

[BlueBong]

Das würde ich ja noch aktzeptieren.
Aber wie schaff ich es, dass ich das Bild vor die Browserkomponente lege. Bei mir ist die Browserkomponente immer vorne. (Ausrichtung:Client)

[Dax]

Es geht viel einfacher:

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Cancel := True;
end;

[BlueBong]

So hat man aber das Problem, dass keinerlei Navigation mehr möglich ist.
Auch nicht über einen einen eigenen Button.

MfG Michael

[Dax]

Da du ja weisst, wohin die URL des Buttons führt, kannst du doch ein if-Abfrage einbauen:

Delphi-Quellcode:

if URL <> WhereIwanttogo then Cancel := True;