TWebBrowser -> POPUP URL?

[demo13]

danke schon mal das funktioniert jetzt!!

Zitat:

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

^
|
das hab ich schon mal ausprobiert aber mein programm ist deswegen immer abgestürzt. deswegen die frage...

[BorlanDelphiUser]

@toms ... hab da noch folgendes Problem

Delphi-Quellcode:

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

Zitat:

[Error] Unit1.pas(35): Undeclared identifier: 'IHTMLDocument2'
[Error] Unit1.pas(35): Operator not applicable to this operand type
[Error] Unit1.pas(35): Undeclared identifier: 'IHTMLElement'
[Error] Unit1.pas(35): Operator not applicable to this operand type
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[toms]

Delphi-Quellcode:

uses 
  MSHTML;

MSHTML importieren