procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if RadioButton2.checked then RadioButton1.checked := false
else RadioButton2.checked := true;
if True then
Form1.EmbeddedWb1.DownloadOptions:=Form1.EmbeddedWb1.DownloadOptions
- [DLCTL_DLIMAGES, DLCTL_BGSOUNDS, DLCTL_VIDEOS,DLCTL_NO_SCRIPTS]
+ [DLCTL_PRAGMA_NO_CACHE, DLCTL_NO_JAVA];
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if RadioButton1.checked then RadioButton2.checked := false
else RadioButton1.checked := true;
if True then
Form1.EmbeddedWb1.DownloadOptions:=Form1.EmbeddedWb1.DownloadOptions
+ [DLCTL_DLIMAGES,DLCTL_NO_JAVA]
- [DLCTL_PRAGMA_NO_CACHE,DLCTL_BGSOUNDS, DLCTL_VIDEOS, DLCTL_NO_SCRIPTS];
end;
webbrowser откл.загр. изображени в главокне нет. в доч.окне загрузка изображения есть
У меня вот такой код регулирующий загрузку изображения, звука, выполнение скриптов и т.д.
прекрасно работает, но если он открыт только в главном окне, если открываются дочерние окна пример кликаем сылку в окне браузера он несрабатывает, а срабатывают установки уже компонента embeddedbw где по умолчанию изображение разрешенно.
Код открытия дочерних окон в событие
Вопрос - почему регулировка загрузки изображения и т.д. не работает для дочерних окон?
так я все варианты давно перебрал, по крайней мере с событием newwindow2 )вроде, как бы объект embeddedwb1 один и тот же, но его свойства в дочерних объектах ненаследуются, следовательно он тот, да не совсем. Кто что предложит?
Код:
прекрасно работает, но если он открыт только в главном окне, если открываются дочерние окна пример кликаем сылку в окне браузера он несрабатывает, а срабатывают установки уже компонента embeddedbw где по умолчанию изображение разрешенно.
Код открытия дочерних окон в событие
Код:
procedure TForm1.EmbeddedWB1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var NewWindow:TForm1;
begin
NewWindow := TForm1.Create(self);
SetWindowLong(NewWindow.Handle, GWL_EXSTYLE, GetWindowLong(NewWindow.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);// <====интересует эта строка где она разжована мне надо регулировку дочокна по размеру полэкран и рег каскадом или рядом есть ли у кого описание а так он открывает ваш браузер в новом окне//
NewWindow.Show;
ppDisp:=NewWindow.EmbeddedWB1.DefaultDispatch;
var Cancel: WordBool);
var NewWindow:TForm1;
begin
NewWindow := TForm1.Create(self);
SetWindowLong(NewWindow.Handle, GWL_EXSTYLE, GetWindowLong(NewWindow.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);// <====интересует эта строка где она разжована мне надо регулировку дочокна по размеру полэкран и рег каскадом или рядом есть ли у кого описание а так он открывает ваш браузер в новом окне//
NewWindow.Show;
ppDisp:=NewWindow.EmbeddedWB1.DefaultDispatch;
Вопрос - почему регулировка загрузки изображения и т.д. не работает для дочерних окон?
так я все варианты давно перебрал, по крайней мере с событием newwindow2 )вроде, как бы объект embeddedwb1 один и тот же, но его свойства в дочерних объектах ненаследуются, следовательно он тот, да не совсем. Кто что предложит?
Предалгаю при открытии нового окна заново установить нужные свойства.
это неудобно, да и как правило часто приходитмся перезагружать страницу, а тут главноё процедура запрета изображения как раз для уменьшения трафика или для увеличения скорости.