VPF::изображение откл. -в главокне нет,в дочернем есть

s2004

Дата 17.12.2009, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет

У меня вот такой код регулирующий загрузку изображения, звука, выполнение скриптов и т.д.

Код


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;

Вопрос - почему регулировка загрузки изображения и т.д. не работает для дочерних окон?

Это сообщение отредактировал(а) s2004 - 17.12.2009, 21:30

s2004

Дата 28.12.2009, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 174
Регистрация: 30.10.2006

Репутация: нет
Всего: нет

ну что ни у кого нет мыслей (так я все варианты давно перебрал, по крайней мере с событием newwindow2 )вроде, как бы объект embeddedwb1 один и тот же, но его свойства в дочерних объектах ненаследуются, следовательно он тот, да не совсем. Кто что предложит?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »