Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   ayuda webbroser (https://www.clubdelphi.com/foros/showthread.php?t=72752)

pepitin89 10-03-2011 03:01:29

ayuda webbroser
 
mi problema es el siguiente, hay sitios web que cuando uno pincha en un link se le abre otra pestaña en el navegador, ok el problema es que cuando utilizo un webBrowser y doy clic en un link de esos se me abre el explorador por defecto, ya se como evitarlo:


procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
Cancel:=True;
end;


ese no es el problema el problema, lo que quiero es capturar la dirección para abrirla en otro WebBrowser.

saludos.

beginner01 10-03-2011 21:41:46

codigo navegador delphi
 
Cita:

Empezado por pepitin89 (Mensaje 393074)

ese no es el problema el problema, lo que quiero es capturar la dirección para abrirla en otro WebBrowser.

saludos.

hola!
soy nuevo en este foro asi que no se si este mensaje quedara
vien editado pero espero poder ayudarte.
co este codigo te abrira iuna nueva ventana de tu navegador
evitando que se ejecute el de intrnet explorer.




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.Top+20;
             ventana2.Show;
          end;

espero te sirva de algo...

pepitin89 11-03-2011 01:30:54

ok lo pruevo muchas gracias


La franja horaria es GMT +2. Ahora son las 08:10:49.

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