Показать сообщение отдельно
  #1  
Старый 15.03.2010, 18:43
Аватар для Mag992
Mag992 Mag992 вне форума
Прохожий
 
Регистрация: 16.02.2010
Сообщения: 13
Репутация: 10
По умолчанию Динамическое создание WebBrowser

Всем прив =)
Я написал браузер, хотелось бы еще добавить вкладки как в опере или мозиле, с возможностью выбора странички.
Вкладки добавил, при нажатии на кнопку создает новую вкладку, но только один раз, если еще раз нажать, то делфи ругается на ошибку и вылетает.

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 t:TTabSheet;
 web:TWebBrowser;
begin
//добавляю вкладку
  t:=TTabSheet.Create(self);
  t.PageControl := PageControl1;
  t.Caption:='Общая';
  PageControl1.ActivePage:=t;

//добавляю браузер на вкладку
web:=TWebBrowser.Create(t);
web:= TWebBrowser.Create(Self);

TWinControl(web).Name:= 'NewWebBrowser';
TWinControl(web).Parent:= t;
web.Align := alClient;

end;
Admin: Не забываем про теги, иначе последуют санкции!

Собсно вопрос...как организовать создание нескольких маленьких
браузеров - окошек на подобие окна выбора сайтов в Опере?
В инете на этот счет чего то много гемороя...хотелось бы обьяснения как это можно сделать)
Ответить с цитированием