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

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

WebBrowser и TabSheet [D7, WinXP]

Fynjy1984_ ©   (2006-07-21 08:33:00) 

Здраствуйте!

При создании webbrowser' ов сразу делаю navigate, но каждый из них начинает грузить страницу, только после выбора соотв. вкладки, а мне хотелось бы в фоне загрузить все странички.


aTS: array of TTabSheet;
aWB: array of TWebBrowser;

setlength(aTs, ADODataSet3.RecordCount);
  setlength(aWB, ADODataSet3.RecordCount);
  for i:=0 to ADODataSet3.RecordCount-1 do begin
    aTs[i]:= TTabSheet.Create(PageControl2);
    aTs[i].Parent:=PageControl2;
    aTs[i].PageControl:=PageControl2;
    aTs[i].Caption:= ADODataSet3.fieldbyname('Íàçâàíèå').AsSt ring;
    aWB[i]:=TWebBrowser.Create(aTs[i]);
    TOleControl(aWB[i]).Parent:=aTs[i];
    aWB[i].Align:=alClient;
    aWB[i].OnDocumentComplete:=MainForm.WebBrowser1DocumentComplete;
    aWB[i].Navigate(ADODataSet3.fieldbyname('Url').AsString);
    ADODataSet3.FindNext;
  end;

P.s. может кто знает как заставить еxplorerовское popup меню копировать (как его заменить я знаю, но это не устраивает)

---

Ketmar   (2006-07-21 21:03:00) [1]

>GrayFace ©   (21.07.06 15:47) [2]

> писать свой TWebBrowser - VCL рассчитан на использование
> в 1 потоке.

???

---

GrayFace   (2006-07-21 15:47:00) [2]

Может aWB[i].HandleNeeded поможет. Только возможно придется наследоваться или писать свой TWebBrowser - VCL рассчитан на использование в 1 потоке.

---

Fynjy1984_   (2006-07-21 08:54:00) [3]

С копированием вроде решилось добавил

Uses ActiveX

и в OnCreate формы
OleInitialize(nil);

---

Наверх