OnShouldStartLoadWithRequest?
Allerdings:
* diese Seite der
DP im Windows geladen
* der Selfhtml-Link öffnet sich extern im Edge (nicht in meinem Firefox
) und das ohne ein Event (OnShouldStartLoadWithRequest sowie OnTap)
* der Google-Link öffnet sich intern und löst OnShouldStartLoadWithRequest aus
Delphi-Quellcode:
procedure TForm11.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('
https://www.delphipraxis.net/211564-delphi-befehl-als-link-twebbrowser.html#post1512852');
end;
procedure TForm11.WebBrowser1ShouldStartLoadWithRequest(ASender: TObject;
const URL:
string);
begin
Memo1.Lines.Add(
URL);
if Pos('
google',
URL) > 0
then
Abort;
// hier könntest du "deinen" Link behandeln, also sonstwas machen
end;
procedure TForm11.WebBrowser1Tap(Sender: TObject;
const Point: TPointF);
begin
Memo1.Lines.Add('
OnTap');
end;
Komisch ist aber, das immer nur der erste Klick auf einen Link funktioniert und das liegt nicht am Abort, denn auch der Link in den Edge geht nur einmal auf.
Und OnTap macht auch nichts.
[add]
Eigentlich ContainsText, aber hatte vorhin keine Lust hoch zu scrollen due SysUtils einzufügen.
[test]
himitsu:\\test
[edit2]
neee, himitsu: oder sonstwas geht auch ohne Event direkt an den Edge
