Новое окно при клике на ссылку в TWebBrowser

← →
Tenrai (2003-04-04 06:11) [0]

Доброго времени суток. В моей проге используется компонент TWebBrowser, все замечательно, НО! при клике на ссылку, в атрибутах которой прописано открытие в новом окне, открывается не новое окно с моей прогой, а стандартный ИЕ, и в него грузится страница, по ссылке на которую мы кликнули. Как сделать так, чтобы при клике на такую ссылку открывалось не новое окно ИЕ, а новое окно моей проги, куда и будет загружена эта страница.

Если можно, то подробнее.

заранее спасибо за ответ

← →
LOX © (2003-04-20 20:03) [1]

Удалено модератором

← →
Gandalv (2003-04-21 11:36) [2]

Удалено модератором

← →
Ihor Osov'yak © (2003-04-21 13:04) [3]

procedure TFormMain_MMsg11.WBNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin with TFormOneMessage.Create(Application) do ppDisp:= WBMsg.DefaultInterface; { здесь WBMsg - TWebBrowser на на TFormOneMessage; TFormOneMessage - "новое окно моей проги, куда и будет загружена эта страница", можешь даже использовать текущий екземпляр текущей формы, или создавать новый } end;

← →
LOX © (2003-04-21 15:09) [4]

Удалено модератором

← →
Gandalv (2003-04-22 00:03) [5]

Удалено модератором

← →
LOX © (2003-04-29 18:36) [6]

Ihor Osov"yak плиз напиши по подробнее! Как использовать текущий екземпляр текущей формы, если у меня форма form1???

← →
Illusion © (2003-04-29 23:52) [7]

Тебе надо использовать MIDI формы... и сию форму с коном надо сделать одним из чилдренов... Тогда при нажатии ты будешь создлавть новый экземпляр чилдрена и назначать в него путь, куда слать...

>Illusion
совсем не обязательно делать MDI. К тому же, сделать как ты написал
>Тогда при нажатии ты будешь создлавть новый экземпляр чилдрена и назначать в него путь, куда слать...
просто невозможно. В событии OnNewWindow URL еще неизвестен...

>LOX
Игорь вроде все достаточно подробно написал. Если на Form1 лежит WebBrowser1, то

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); begin ppDisp := TForm1.Create(Application).WebBrowser1.DefaultInterface; end;

Удалено модератором
Примечание: А ты здесь причем? Для своих вопросов создавай свой топик.

Удалено модератором

Новое окно при клике на ссылку в TWebBrowser Найти похожие ветки