VPF::TInternetExplorer&TWebBrowser событие OnNewWindow2

Чучмек

Дата 22.2.2010, 18:38 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Здравствуйте.
Для того чтобы в TWebBrowser перехватить "открыть в новом окне" и открыть в новом TWebBrowser в обработчие события OnNewWindow2
достаточно вставить строчку кода:

Код


 ppDisp:=NewWebBrowser.ControlInterface;

Однако такой подход открывает ВСЕ окна в новом TWebBrowser.
А как быть если в зависимости от параметов, с котрыми создается новое, его необходимо открывать либо в TWebBrowser,  либо в окне IE ?
Так если окно создается с параметром "displayWindow" его нужно открыть в окне IE или на новой форме и расположить поверх страницы.
Как быть если  новое окно должно открыватся в новом экземляре нашего приложения (как в старых IE)?
Как быть если окно нужно открыть в TInternetExplorer у которого отсутствует свойство ControlInterface?

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Чучмек

Дата 22.2.2010, 23:30 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

Цитата

Как быть если окно нужно открыть в TInternetExplorer у которого отсутствует свойство ControlInterface?

Код



var NEW_ie:tinternetexplorer;
...
NEW_ie:=tinternetexplorer.Create(nil);
NEW_ie.Visible:=true;
ppDisp:=IUnknown(NEW_ie.Parent) as IWebBrowser;

p.s.
Намудрил.
Достаточно будет

Код


ppDisp:=NEW_ie.Parent;

Но это работает только для обработчикаOnNewWindow2 TWebBrowser_а
Для TInternetExplorer не работает

Это сообщение отредактировал(а) Чучмек - 23.2.2010, 00:00

--------------------

умную мысль держи при себе, а дурной - поделись с другими

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