[NFS73]

Во общем мне необходимо, что бы при нажатие на кнопку в PageContorl1 создавалась бы новая вкладка и в ней WebBrowser.

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
  tabs: TTabSheet;
  ie: TWebBrowser;
begin
        tabs:=TTabSheet.Create(Self);
        tabs.PageControl:=PageControl1;
        tabs.Caption:='Вкладка';
        tabs.Show;
        ie:=TWebBrowser.Create(Self);
end;

С помощью данного кода при нажатие на кнопку создается новая вкладка(TabSheet) и WebBrowser,но как засунуть этот WebBrowser в данный TabSheet незнаю.Помогите плизз...

[movnet]

Код:

tabs:=TTabSheet.Create(Self);
tabs.PageControl:=PageControl1;
tabs.Caption:='Вкладка';
tabs.Show;
ie:=TWebBrowser.Create(Self);
TWinControl(ie).Name :='ie1';
TWinControl(ie).Parent := PageControl1.ActivePage;

[NFS73]

Спасибо,помогло

[NFS73]

А как можно обратиться к динамически созданному компоненту WebBrowser? Т.е. в этом коде создается вкладка и браузер в ней,а как потом обратить к этому браузеру

Код:

procedure TForm1.GoClick(Sender: TObject);
var
  tabs: TTabSheet;
begin
        count:=count+1;
        tabs:=TTabSheet.Create(Self);
        tabs.PageControl:=Viewer;
        tabs.Caption:='Вкладка';
        tabs.Show;
        ie:=TWebBrowser.Create(Self);
        TWinControl(ie).Name :='ie'+IntToStr(count);
        TWinControl(ie).Parent := Viewer.ActivePage;
        ie.Align:=alClient
end;

Пробовал сделать так:

Код:

FindComponent('ie' + IntToStr(count)).Navigate(Edit1.Text);

но программа выдала ошибку

[Bargest]

Код:

TWebBrowser(FindComponent('ie' + IntToStr(count))).Navigate(Edit1.Text);

Должно сработать.

А вообще по-моему проще всего сделать так:

Код:

var ie:array[0..100]of TWebBrowser;
...
 ie[c]:=TWebBrowser.Create;
 TWinControl(ie[c]).Parent := PageControl1.ActivePage;
 ie[c].Align:=alClient;
 inc(c);

[NFS73]

Сообщение от Bargest

Код:

TWebBrowser(FindComponent('ie' + IntToStr(count))).Navigate(Edit1.Text);

Должно сработать.

А вообще по-моему проще всего сделать так:

Код:

var ie:array[0..100]of TWebBrowser;
...
 ie[c]:=TWebBrowser.Create;
 TWinControl(ie[c]).Parent := PageControl1.ActivePage;
 ie[c].Align:=alClient;
 inc(c);

спасибо!

[Alexs2011]

Сообщение от movnet

Код:

tabs:=TTabSheet.Create(Self);
tabs.PageControl:=PageControl1;
tabs.Caption:='Вкладка';
tabs.Show;
ie:=TWebBrowser.Create(Self);
TWinControl(ie).Name :='ie1';
TWinControl(ie).Parent := PageControl1.ActivePage;

возможно ли таким же способом вписать множество разных компонентов только не на активную страницу а на все что построятся, в цикле?