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