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

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

← →
Fynjy1984_   (2006-07-21 08:33) [0]

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

При создании 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 меню копировать (как его заменить я знаю, но это не устраивает)

---

← →
Fynjy1984_   (2006-07-21 08:54) [1]

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

Uses ActiveX

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

---

← →
GrayFace ©   (2006-07-21 15:47) [2]

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

---

← →
Ketmar ©   (2006-07-21 21:03) [3]

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

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

???

---

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

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



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