[AlexRav]

Пишу веб браузер... Так вот мож кто знает, как сделать так чтобы можно было создавать новые вкладки. Нашел исходник, но так и не понял там че к чему... Вообщем кто знает помогите, и вообще если есть какая нить инфа по этому делу, то поделитесь...
Заранее благодарен...

[Admin]

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

Пишу веб браузер... Так вот мож кто знает, как сделать так чтобы можно было создавать новые вкладки. Нашел исходник, но так и не понял там че к чему... Вообщем кто знает помогите, и вообще если есть какая нить инфа по этому делу, то поделитесь...
Заранее благодарен...

http://www.delphisources.ru/pages/so...web_brows.html

[Casper-Hacker]

Исходники Nano Browser IE

[M-UNIT]

http://m-unit.wen9.net/pc/my/my_net/...MyNET_v2.0.rar

но только без вкладки)

[garance]

я создал 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;