| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Webbrowser [D7, XP]

Kuvalda ©   (2007-12-28 20:07:00) 

как вставить twebbrowser в следующую закладку?

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
wb: TWebBrowser;
begin
a.Pages.Add(webbrowser1.LocationName);
wb := TWebBrowser.Create(a);
TWinControl(wb).Name := 'Oweb';
wb.Align := alClient;
TWinControl(wb).Parent := a;
wb.Navigate(combobox1.Text);

end;

Где ошибка? Подправтье мастера меня?

---

MetalFan   (2007-12-29 21:32:00) [1]

ага, плюс если уже компонент с таким именем на форме, то тебе по идее не дадут еще один одноименный "сделать")

---

kuvalda   (2007-12-28 21:13:00) [2]

Вообще-то на самом деле затупил я....

---

{RASkov}   (2007-12-28 21:06:00) [3]

> [2] kuvalda ©   (28.12.07 20:43)
> tabbednotebook1

А зачем тебе этот "древний" контрол? :)

Попробуй с TPageControl'ом:

const SUrl = 'http:\\www.delphimaster.ru';
var Wb: TWebBrowser; tb: TTabSheet;
begin
 tb:=TTabSheet.Create(PageControl1);  //создаем вкладку
 tb.Caption:=SUrl;                    //Задаем название
 Wb:=TWebBrowser.Create(tb);          //Создаем вэброузер
 TWinControl(Wb).Parent:=tb;          //присваиваем родителя
 Wb.Align:=alClient;                  //понятно
 Wb.Navigate(SUrl);                   //открываем ссылку
 tb.PageControl:=PageControl1;        //отоброжаем вкладку на указанном PageControl'е
end;
В итоге у нас за уничтожение вэбброузера wb - отвечает tb(TTabSheet, вкладка), а ее(вкладку) в свою очередь "пришибет", если что, PageControl....

---

kuvalda   (2007-12-28 20:43:00) [4]

> > [0] Kuvalda ©   (28.12.07 20:07)
>
> Что такое - "а"?


Извиняюсь....  

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
wb: TWebBrowser;
begin
tabbednotebook1.Pages.Add(webbrowser1.LocationName);
wb := TWebBrowser.Create(tabbednotebook1);
TWinControl(wb).Name := 'Oweb';
wb.Align := alClient;
TWinControl(wb).Parent := tabbednotebook1;
wb.Navigate(combobox1.Text);

end;

---

{RASkov}   (2007-12-28 20:32:00) [5]

> [0] Kuvalda ©   (28.12.07 20:07)

Что такое - "а"?

---

Наверх