Delphi Befehl als "Link" in TWebBrowser

[himitsu]

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