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

Подскажите, в чем ошибка?   Найти похожие ветки 

← →
Guest_01   (2005-01-10 17:33) [0]

В цикле создаю табы и twebbrowser, у броузеров align=alClient, но при изменении размера формы размер броузеров не меняется, почему???

tab:=ttabsheet.Create(pagecontrol1);
tab.PageControl:=pagecontrol1;
tab.TabVisible:=true;
tab.Caption:="0";

wb:=twebbrowser.create(tab);
wb.Align:=alClient;
wb.parentwindow:=tab.Handle;
wb.OnDocumentComplete:=form1.WebBrowser1.OnDocumentComplete;

wb.Left:=0;
wb.top:=0;
wb.Width:=tab.Width;
wb.height:=tab.height;
wb.Visible:=true;

wb.Navigate(link);

---

← →
olookin ©   (2005-01-10 18:50) [1]

wb.Align:=alClient;
wb.parentwindow:=tab.Handle;

Предлагаю поменять местами эти две строчки...

---

← →
Guest_01   (2005-01-10 19:00) [2]

пробовал - результат такой-же

---

← →
begin...end ©   (2005-01-10 20:04) [3]

> Guest_01   (10.01.05 17:33)

Замените строку

> wb.parentwindow:=tab.Handle;

на

TControl(wb).Parent := tab;

---

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

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



Память: 0.45 MB
Время: -0.967 c