|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Динамическое создание 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; Собсно вопрос...как организовать создание нескольких маленьких браузеров - окошек на подобие окна выбора сайтов в Опере? В инете на этот счет чего то много гемороя...хотелось бы обьяснения как это можно сделать) Последний раз редактировалось Mag992, 15.03.2010 в 18:53. |