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);
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;
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.
