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

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

Подскажите, в чем ошибка? [D6, WinXP]

Guest_01 ©   (2005-01-10 17:33:00) 

В цикле создаю табы и 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);

---

begin...end   (2005-01-10 20:04:00) [1]

> Guest_01   (10.01.05 17:33)

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

> wb.parentwindow:=tab.Handle;

на

TControl(wb).Parent := tab;

---

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

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

---

olookin   (2005-01-10 18:50:00) [3]

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

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

---

Наверх