Problema con WebBrowser y OnNewWindow
 

Buenas, tengo un problema con el webbrowser y el evento onnewwindow. Lo que pretendo es que al pulsar sobre un enlace que se abriría en nueva ventana (o pestaña), que se abra sobre el mismo navegador en el que se pulsó el enlace (que es el único que hay) y que no abra un internet explorer.

Ya sé que se ha tratado algo sobre el tema, pero por más que he buscado no he encontrado nada que me funcione y sí, he usado el buscador del foro y me he leído prácticamente todos los mensajes donde se mencionaba el componente webbrowser.
he probado, aunque no me ha funcionado esto:

Código Delphi [-]
with Tceti.Create(nil) do
ppdisp:=webbrowser1.Application;

gracias de antemano

saludos.

con este codigo se te abrira en una nueva ventana de tu aplicación

Código Delphi [-]
procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
 var
 ventana2: TForm1;
begin
  Application.CreateForm(tForm1,ventana2);
  ventana2.wb1.RegisterAsBrowser := true;
  ppDisp := ventana2.wb1.Application;
  ventana2.Top:=ventana2.Top+20;
  ventana2.Left:=ventana2.left+20;
  ventana2.Show;

end;

Ese código está bien si quieres que se abra otra ventana de tu aplicación, pero yo lo que quiero hacer es que lo que se abriría en una nueva ventana del navegador cargue sobre el navegador que estoy utilizando.

gracias por tu respuesta

solucionado
 

bueno familia, por si a alguien le interesa acabo de dar con la solución, casi de casualidad (como los grandes descubrimientos del hombre jaja) y por si a alguien le puede venir bien es esta:

Código Delphi [-]
procedure Tform1.NuevaVentana(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
  var
carga:TWebBrowser;
Documento : IHtmlDocument2;
elemento : IHtmlElement;
nuevadir:string;
begin
carga:=TWebBrowser(aSender);
Document := carga.Document as IHTMlDocument2;
elemento:=Documento.activeElement;
nuevadir:=elemento.toString;
Cancel:=true;   //para evitar que se abra la nueva ventana, ya sea de mi aplicación o de IE
webbrowser1.Navigate(nuevadir);
end;

creo que se puede dar por cerrado el tema e incluso trasladar la solución a trucos, porque seguro que a más de uno le entra esta duda en algún momento.

Un saludo!