Url in neumen Fenster öffnen

[citybreaker]

Hallo,
ich hab von SwissdelphiCenter.ch einen Code
das Links in einem neuen Fenster geöffnet werden.

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; 
  var ppDisp: IDispatch; var Cancel: WordBool); 
var 
  NewWindow: TForm1; 
begin 
  // a new instance of the form will be created 
  // Eine neue Instanz wird erstellt 
  NewWindow := TForm1.Create(self); 

  NewWindow.Show; 
  ppDisp := NewWindow.Webbrowser1.DefaultDispatch; 
end;

Alerdings kennt meine TWebbrowser Komponente
Webbrowser1.DefaultDispatch nicht.

[Kamil]

Die gibt es schon. Ich hab's so gemacht:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  with TForm1.Create(self) do
  begin
    ppDisp:=WebBrowser1.DefaultDispatch;
    Visible:=true;
  end;
end;

[citybreaker]

Mir zeigt er immer.

Zitat:

Undefinierter bezeichner:'DefaultDispatch'.

[Daniel B]

Zitat von citybreaker:

Mir zeigt er immer.

Zitat:

Undefinierter bezeichner:'DefaultDispatch'.

Und warum gehst Du nicht zum Autor damit? Der muss das doch "noch" am besten wissen. Der stand sicherlich bei dem Code dabei.

[Kamil]

Hi,
ich habs mit Delphi 4, 5 und 6 getestet und es geht immer.
Sowohl TWebBrowser_V1 als auch TWebBrowser haben diese Eigenschaft.
Erstelle die Komponenten einfach nochmal:
-Menu Komponente|ActiveX importieren
-"Microsoft Internet Controls" auswählen
-und zuletzt "Installieren..." ankicken

[citybreaker]

@Kamil klappt trotzdem nicht.

[Kamil]

Dann zeig mal ein wenig mehr von deinem Code:
-definition von TForm1
-wird TWebBrowser dynamisch erstellt?
-welche Units hat du eingebunden
...

[citybreaker]

Ich häng mal den alles in den Anhang!

[Kamil]

Warum nimmst du TWebBrowser_V1?
1) TWebBrowser_V1 durch TWebBrowser ersetzten!
2) Namen anpassen
Dann geht's.

[citybreaker]

Mhm, ne geht nicht! Hab jetzt TWebBrowser genommen den namen neu angepasst
und es kommt wieder Undefinierter bezeichner:'DefaultDispatch'.

Alerdings habe ich eine andere Lösung gefunden!

Delphi-Quellcode:

procedure TEditor.BrowserNewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewApp: TEditor;
begin
   NewApp := TEditor.Create(Owner);
   NewApp.Visible := true;
   ppdisp := NewApp.Browser.Application;
end;

Nun hab ich noch ne Frage, wie kann ich jetzt
die Links die sich im IE öffnen auch in so
einer Form öffnen lassen?