Форум: "Начинающим";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c