Скачать: CL | DM;

Webbrowser   Найти похожие ветки 

← →
Kuvalda ©   (2007-12-28 20:07) [0]

как вставить 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;

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

---

← →
{RASkov} ©   (2007-12-28 20:32) [1]

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

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

---

← →
kuvalda ©   (2007-12-28 20:43) [2]

> > [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 21:06) [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 21:13) [4]

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

---

← →
MetalFan ©   (2007-12-29 21:32) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c