Anchor von selektiertem Text in TEdgeBrowser?

[softtouch]

Hat sich schon erledigt, ich mache das über JS und ExecuteScript.

Ich mache folgendes in onNavigationStarting:

Delphi-Quellcode:

procedure TForm1.onNavigationStarting(Sender: TCustomEdgeBrowser; Args: TNavigationStartingEventArgs);
var
  js:string;
begin
  sender.stop;

  js:='encodeURI(';
  js:=js+'document.activeElement.getAttribute("href")+"|"+';
  js:=js+'document.activeElement.text+"|"+';
  js:=js+'document.activeElement.getAttribute("title")+"|"+';
  js:=js+'document.activeElement.getAttribute("id")+"|"+';
  js:=js+'document.activeElement.getAttribute("name")+"|"+';
  js:=js+'document.activeElement.getAttribute("class")+"|"+';
  js:=js+'document.activeElement.outerHTML+"|"+';
  js:=js+'document.activeElement.innerHTML+"|"+';
  js:=js+'document.activeElement.getAttribute("src")+"|"+';
  js:=js+'document.activeElement.getAttribute("alt")';
  js:=js+')';

  sender.ExecuteScript(js);
end;