Foros Club Delphi - Creacion de componentes. Tabs estilo firefox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Creacion de componentes. Tabs estilo firefox (https://www.clubdelphi.com/foros/showthread.php?t=34343)

DarkByte

06-08-2006 13:40:16

Creacion de componentes. Tabs estilo firefox

Buenas, estoy intenando crear un navegador con tabs, estilo firefox.

Me parece que aún no se crear bien los objetos.

Código Delphi [-]procedure TfrmPrincipal.CrearTab (Titulo : string; Direccion : string);
var
  Pagina : TTabSheet;
  Nav    : TWebBrowser;
begin
  Pagina.Create( psNavegador );
  Pagina.Caption := Titulo;
  Nav.Create( Pagina );
  Nav.Align := alClient;
  Nav.Navigate( Direccion );
end;

seoane

06-08-2006 15:11:17

La cosa podría quedar así:

Código Delphi [-]procedure TfrmPrincipal.CrearTab (Titulo : string; Direccion : string);
var
  Pagina : TTabSheet;
  Nav    : TWebBrowser;
begin
  Pagina:= TTabSheet.Create(psNavegador);
  Pagina.PageControl:= psNavegador;
  Pagina.Caption := Titulo;
  Nav:= TWebbrowser.Create(Pagina);
  // Esta es la unica solcuion que se me ocurrio para que alClient funcione
  TControl(Nav).Parent:= Pagina;
  Nav.Align := alClient;
  Nav.Navigate(Direccion);
end;

DarkByte

06-08-2006 16:12:47

Muchas gracias, bro! ;)

La respuesta perfecta

La franja horaria es GMT +2. Ahora son las 22:03:38.