Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-05-2011
jomadi04 jomadi04 is offline
Registrado
NULL
 
Registrado: dic 2010
Posts: 7
Poder: 0
jomadi04 Va por buen camino
Question 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
Responder Con Cita
  #2  
Antiguo 31-05-2011
beginner01 beginner01 is offline
Miembro
NULL
 
Registrado: mar 2011
Ubicación: República Dominicana
Posts: 181
Poder: 14
beginner01 Va por buen camino
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;
Responder Con Cita
  #3  
Antiguo 01-06-2011
jomadi04 jomadi04 is offline
Registrado
NULL
 
Registrado: dic 2010
Posts: 7
Poder: 0
jomadi04 Va por buen camino
Cita:
Empezado por beginner01 Ver Mensaje
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
Responder Con Cita
  #4  
Antiguo 01-06-2011
jomadi04 jomadi04 is offline
Registrado
NULL
 
Registrado: dic 2010
Posts: 7
Poder: 0
jomadi04 Va por buen camino
Thumbs up 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!
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema en carga de datos con webbrowser. rauros Internet 0 16-07-2008 17:14:04
WebBrowser ZayDun Internet 1 01-04-2007 10:42:38
Problema con PostData en WebBrowser.Navigate ¡No envia por POST! LuCkY_007 Internet 1 18-01-2006 06:25:23
Sobre OnNewWindow jorge1987 Internet 7 12-12-2005 22:30:17
Sobre OnNewWindow jorge1987 Internet 10 29-07-2005 03:47:11


La franja horaria es GMT +2. Ahora son las 22:56:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi