Tabbed-Browser, Link-URL auslesen????

[mlspider]

OK, ich habe es endlich kappiert!!!

Delphi-Quellcode:

public
    { Public-Deklarationen }
    procedure NewWindow(Sender: TObject;var ppDisp: IDispatch; var Cancel: WordBool);
    procedure NewWebStatusTextChange(Sender: TObject;
  const Text: WideString);;//<---hier geändert
    end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
 NewTab : TTabSheet;
 NewWeb: TWebBrowser;
begin
  NewTab:= TTabSheet.Create(Form1.PageControl1);
  NewTab.Visible := True;
  NewTab.Caption := 'Neue Seite';
  NewTab.PageControl := Form1.PageControl1;
  Form1.PageControl1.ActivePage:= NewTab;
  NewWeb:=TWebBrowser.Create(NewTab);
  TWinControl(NewWeb).parent := NewTab;
  NewWeb.Align:= alClient;
  NewWeb.OnNewWindow2:= NewWindow;
  NewWeb.OnStatusTextChange:=NewWebStatusTextChange;//<---hier geändert
  NewWeb.Visible := True;
end;

Und natürlich noch die Prozedur:

Delphi-Quellcode:

procedure TForm1.NewWebStatusTextChange(Sender: TObject;
  const Text: WideString);
  var NewWeb: TWebbrowser;
begin
  StatusBar1.Panels[1].Text := Text;
end;

War ja eine schwere Geburt!!!

besonderen Dank nochmals an toms!!!