я создал pageControl на форме, и зделал так, что-бы при нажатии определенной кнопки создавалась TabSheet на которой лежит WebBrowser и другие компоненты...
Вот тебе код, но здесь вместо моих компонентов подставь свои, должно работать. Только не забудь в Uses написать, какие компоненты используються!
Код:
procedure TForm1.ToolButton1Click(Sender: TObject);
var
PageControl: TsPageControl;
TabSheet: TsTabSheet;
fShellListView: TShellListView;
fShellTreeView: TShellTreeView;
fShellComboBox: TShellComboBox;
begin
// создаем первую страницу и связуем с PageControl
TabSheet := TsTabSheet.Create(Self);
TabSheet.Caption:= ('');
TabSheet.PageControl := sPageControl1;
fShellListView := TShellListView.Create(Self);
// создаем компоненты первой страницы
with fShellListView do
begin
Parent := TabSheet;
Align := alClient;
end;
with TShellTreeView.create(self) do
begin
ShellListView := fShellListView;
parent :=TabSheet;
Align :=alleft;
width :=200;
end;
with Tshellcombobox.Create(self) do
begin
parent :=TabSheet;
ShellListView := fShellListView;
align :=altop;
end;
end;