Скачать: CL | DM;

Новое окно при клике на ссылку в 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 формы... и сию форму с коном надо сделать одним из чилдренов... Тогда при нажатии ты будешь создлавть новый экземпляр чилдрена и назначать в него путь, куда слать...

---

← →
nikkie ©   (2003-04-30 13:23) [8]

>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;

---

← →
LOX ©   (2003-05-01 09:50) [9]

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

---

← →
LOX ©   (2003-05-01 14:10) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c