Multi-navegador

[jachguate]

Hola Delphius.

En primer lugar, quiero darte la bienvenida a los foros del clubdelphi. Te recomiendo la lectura de la Guia de Estilo, que contiene las reglas de convivencia en este lugar.

Te recomiendo el uso también de las etiquetas [ delphi ], [ sql ], [ php ] y [ code ] (segun corresponda) para publicar trozos de código, puesto que de esta manera se muestran correctamente indentados y con la sintaxis resaltada. Al inicio de este foro hay un mensaje que explica su uso.

En este caso, publico los trozos de código de tu mensaje original de esta manera, para que sean de fácil lectura para quien se interese en tu hilo.

Código Delphi [-]
procedure TFrame2.WebBrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
  StatusBar1.Panels[0].Text := Text;
end;

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;

Por último, y esto a título personal, me parece que no es suficiente con el código publicado. Es importante que transcribas el mensaje de error completo, así como la clase de la excepción involucrada para dar una idea de por donde va el problema. Con respecto a esto te recomiendo la lectura del hilo de la calidad de las preguntas

Hasta luego.