TWebBrowser -> POPUP URL?

[toms]

Zitat von demo13:

der compiler sagt:
"Undeclared identifier: 'TEmbeddedWB'"
und das gleiche für
"document"

Ersetze TEmbeddedWB mit TWebbrowser

Zitat:

NewWindow:=TForm4.Create(self);
URL:=((TEmbeddedWB(ASender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0);
NewWindow.Show;
NewWindow.web.Navigate(url);

Warum so kompliziert?

Delphi-Quellcode:

NewWindow := TForm4.Create(self);
NewWindow.Show;
ppDisp := NewWindow.web.DefaultDispatch;