Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-07-2004
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 25
Delphius Va camino a la fama
Question Multi-navegador

Hola, tengo una pequeña duda... y estaría muy agradecido si alguien pudiera ayudarme.

Estoy desarrollando un multi-navegador y para ello necesito crear dinámicamente cada ventana de navegación. A su vez por cada ventana creo una pestaña (TTabSheet) de un TPageControl.
La ventana de navegación debe constar de un TWebBrowser y un TStatusBar. Para facilitar las cosas diseñé un Frame que hace de ventana de navegación. En dicho frame sólo se encuentra un solo evento:
Código Delphi [-]
procedure TFrame2.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
StatusBar1.Panels[0].Text := Text;
end;
Es decir que sólamente lo que se hace es mostrar en la StatusBar el texto cambiante cuando se navega.

La ventana principal consta de los botones de navegación un PageControl y un ComboBox en donde se visualiza la dirección.
El problema es que el código que yo ingresé no me deja insertar mas de una pestaña con su correspondiente ventana de navegación, apareciendome un mensaje de error diciendo que ya existe un objeto llamado TFrame2. Adjunto un código de prueba:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
// El botón simplemente permite crear una pestaña navegadora para la dirección URL
// ingresada
var NewTabSheet : TTabSheet;
    NewBrowser: TFrame2;
    F: OLEVariant;
begin
// Para que funcione correctamente debe haber inicialmente una pestaña con una ventana
// de navegación
NewTabSheet := TTabSheet.Create(PageControl1);
// Edit2 contiene el nombre para la pestaña
NewTabSheet.Caption := Edit2.Text;
NewTabSheet.PageControl := PageControl1;
NewBrowser := TFrame2.Create(Frame21);
NewBrowser.WebBrowser1.Offline := True;
NewBrowser.Align := alClient;
NewTabSheet.InsertControl(NewBrowser);
F := 0;
PageControl1.ActivePage := NewTabSheet;
with PageControl1.ActivePage do
   // Edit1 contiene la dirección URL a visitar
   NewBrowser.WebBrowser1.Navigate(WideString(Edit1.Text),F,F,F,F);
end;
¿Alguien sabe como puedo solucionar este problema? Desde ya muchas gracias...

Última edición por Delphius fecha: 13-07-2004 a las 15:21:35. Razón: Aaclrar mensaje de error
Responder Con Cita
 



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


La franja horaria es GMT +2. Ahora son las 02:36:54.


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