|
|
Регистрация | << Правила форума >> | 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. |
#2
|
|||
|
|||
Имена им разные давай. Скорее всего, у тебя ругается так: Component with name 'NewWebBrowser' already exists. В строке:
Код:
TWinControl(web).Name:= 'NewWebBrowser'; Ну или вообще убери эту строку - пусть дельфя сама их именует. Все равно ты не будешь к ним по имени обращаться, т.к. у тебя есть готовая ссылка на него (только не забудь ее сохранить). |
#3
|
||||
|
||||
Спс большущее))) стормозил))
Проблема решена) Последний раз редактировалось Mag992, 15.03.2010 в 21:14. |