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....

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

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

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