Parent WebBrowser

[TOPX]

Hola,

Código Delphi [-]
  Page := TPageControl.Create(Self);
  Page.Parent := Self;

  Tab := TTabSheet.Create(Page);
  Tab.Parent := Page;
  Tab.PageControl := Page;

  wb := TWebBrowser.Create(Self);
  TWinControl(wb).Parent := Tab;

[[felipe88]]

¿Y eso era todo? ... Gracias, ya lo estoy probando...

[[felipe88]]

Hola,
Estuve mirando este codigo proporcionado por la ayuda de Delphi para optimizar el proceso que pretendo

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const
  TabTitles: array[0..3] of ShortString = ('Customer', 'Orders', 'Items', 'Parts' );
var
  i: Integer;
  PageControl1: TPageControl;
begin
  PageControl1 := TPageControl.Create(Self);
  PageControl1.Parent := Self;
  PageControl1.Align := alClient;
  for i := Low(TabTitles) to High(TabTitles) do
    with TTabSheet.Create(PageControl1) do
    begin
      PageControl := PageControl1;
      Name := 'ts' + TabTitles[i];
      Caption := TabTitles[i];
   end;
end;

Partiendo desde aqui quise probrar algo como esto...

Código Delphi [-]
procedure TForm1.Cargar;
var pag:TStringList;
    Page:TPageControl;
    wb:TWebBrowser;
    i:Integer;
begin
  pag := TStringList.Create;
  Page := TPageControl.Create(Self);
  Page.Parent := Self;
  Page.Top := 100;
  Page.Left := 100;
  Page.Height := 300;
  Page.Width := 500;
  pag.LoadFromFile('C:\Texto.txt');
  for i:=0 to pag.Count -1 do
    begin
      with TTabSheet.Create(Page) do
        begin
          Name := 'tab' + IntToStr(i);
          Caption := pag.Strings[i];
          PageControl := Page;
          wb := TWebBrowser.Create(Page);
          TWinControl(wb).Parent := PageControl; //Esta es la duda
        end;
    end;
end;

Como lo indico en el codigo, si lo hago de ese modo aparece el WebBrowser pero no deja ver los TabSheets ya que obviamente se crea sobre estos y no dentro de estos. Entonces, si quisiera que fuera asi; ¿como debo pasar la propiedad Parent para que sea el TabSheet recien creado? ...

[roman]

¿Qué tal así?

Código Delphi [-]
TWinControl(wb).Parent := Page.Pages[i]; //Esta era la duda

// Saludos

[[felipe88]]

Roman, muchas gracias... esa era la solucion , ya tan solo me restaria asignar el nombre a cada WebBrowser para que en otro procedimiento pueda pasarles las URL...