Текущий архив: 2006.09.03;
Скачать: 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 вся ветка
Текущий архив: 2006.09.03;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.032 c
