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 потоке.

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