У меня вот такой код регулирующий загрузку изображения, звука, выполнение скриптов и т.д.
| Код |
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;
|
прекрасно работает, но если он открыт только в главном окне, если открываются дочерние окна пример кликаем сылку в окне браузера он несрабатывает, а срабатывают установки уже компонента 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;
end;
|
Вопрос - почему регулировка загрузки изображения и т.д. не работает для дочерних окон? |