Текущий архив: 2003.07.07;
Скачать: 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 вся ветка
Текущий архив: 2003.07.07;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.007 c
