Webbrowser ... Neues Fenster...

[falko]

Hallo!
Wenn man eine Page im TWebbrowser öffnet, und diese dann, durch anklicken eines Links, eine neue Page öffnet, startet er den Iexplorer.
Kann man das umleiten und das eigene Prog. die seite öffnen lass.

[Thomas Stutz]

Hi,

Durchsuch mal die programmier tipps. Dort's gibt's 'nen Codeschnippsel dazu.

[watwerbistdudenn]

Ja ich habe das selbe Problem!

Der Tip bei Programiertips ist aber nicht das was ich suche!
Es wir ein neues Fenster erstellt aber er soll die Seite einfach in dem selben Fenster öffen und nichts neues erstellen.
Das dürfte doch nicht so schwer sein?!

In der Hilfe bei Delphi steht zu onnewwindow2

Cancel erlaubt Ihnen, das Erstellen eines neuen Fensters zu verhindern. Wenn Sie Cancel in der Routine auf True setzen, zeigt der Web-Browser die Ziel-Ressource in seinem aktuellen Fenster an, sobald das Ereignis OnBeforeNavigate2 eintritt.

Hinweis

Wenn Cancel auf True gesetzt wird, sollte in der Routine kein Wert für ppDisp zurückgegeben werden.

Aber irgendwie geht das nicht es kommt nämlich NICHTS!


Für eine Antwort wäre ich sehr dankbar!!
Ciao Ralf

[watwerbistdudenn]

HI

also ich hab das mal so gelöst:

Ich habe den Tip [a href="http://www.swissdelphicenter.ch/de/showcode.php?id=1014" target="_blank"]http://www.swissdelphicenter.ch/de/showcod...ode.php?id=1014[/a] genommen und etwas abgeändert.

Hier das Original:

Code:

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;

Zu erst muss man die Variable newwindow global deklarieren also oben bei implementation und nicht in der procedure

Code:

implementation

var

newwindow:TForm1;

Nun wird die Procedure so umgeschrieben:

Code:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;

  var ppDisp: IDispatch; var Cancel: WordBool);



begin

NewWindow := TForm1.Create(self);

ppDisp := NewWindow.Webbrowser1.DefaultDispatch;

newwindow.WebBrowser1.OnBeforeNavigate2:=losgehts;

end;

Jetzt schreiben wir uns zuletzt die losgehts procedue:

Code:

procedure TForm1.losgehts(Sender: TObject;

  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

  Headers: OleVariant; var Cancel: WordBool);

begin

webbrowser1.Navigate(url);

end;

So das wars dann auch schon!
Jetzt werden alle Links in dem einen Fenster göffnet und nichts neues aufgemacht!

Ciao Ralf

[einfach112]

Hallo ! danke das du damals deine lösung rein geschrieben hast .....
nur leider bin ich nicht so gut in delphi ....
wo muss ich genau die procedure TForm1.losgehts schreiben !?!?!?!?!?
habe schon überalle hin kopiert .... aber der sagt immer losgehts währe nicht deklariert !?
mfg
mike