TWebBrowser -> POPUP URL?

[toms]

Probiert mal das:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  URL: WideString;
begin
  URL := ((TEmbeddedWB(Sender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
end;