TWebbrowser, Link im gleichen Fenster öffnen

[CTV]

Dan würd ichs so machen:

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

Delphi-Quellcode:

implementation 
var 
newwindow:TForm1;

Nun wird die Procedure vom alten post so umgeschrieben:

Delphi-Quellcode:

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:

Delphi-Quellcode:

procedure TForm1.losgehts(Sender: TObject; 
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, 
  Headers: OleVariant; var Cancel: WordBool); 
begin 
webbrowser1.Navigate(url); 
end;

Ich denke so sollte es laufen

Greetz Cyrus