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);
var NewTabSheet : TTabSheet;
NewBrowser: TFrame2;
F: OLEVariant;
begin
NewTabSheet := TTabSheet.Create(PageControl1);
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
NewBrowser.WebBrowser1.Navigate(WideString(Edit1.Text),F,F,F,F);
end;
¿Alguien sabe como puedo solucionar este problema? Desde ya muchas gracias...