| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser, открыть ссылку в том же окне? [D7, XP]

vegarulez ©   (2010-10-25 09:30:00) 

Привет всем мастерам! использую TWebBrowser. Возник вопрос как открыть новое окно не в новом окне, а в уже существующем, в обработчике WebBrowser1NewWindow2.
Заранее благодарен.

---

stas   (2010-10-25 10:36:00) [1]

> vegarulez   (25.10.10 10:03) [3]
>
> просто когда делаю
>
> procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
>  var ppDisp: IDispatch; var Cancel: WordBool);
> begin
> Cancel:=True;
> end;

Ну, правильно говорят поставь  TEmbeddedWB, там есть такое вот событие, куда нужно вписать вот тактой код:

procedure TForm1.webbrowser1NewWindow3(ASender: TObject;
 var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
 const bstrUrlContext, bstrUrl: WideString);
begin
webBrowser1.Navigate(bstrUrl);
Cancel:=true;
end;


---

vegarulez   (2010-10-25 10:03:00) [2]

просто когда делаю

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
 var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:=True;
end;


Он вообще ничего не открывает.

---

vegarulez   (2010-10-25 09:45:00) [3]

Когда нить - до него доберусь - сейчас немогу с ним разбираться - ввиду ограниченности по времени - всё что нужно было - уже сделал, кроме этого момента. Везде описано как открыть в новом окне - нме же наоборот нужно в существующем.

---

Сергей М.   (2010-10-25 09:38:00) [4]

Поставь себе TEmbeddedWB и не парься - у него управление поведением браузера в части навигации в текущем или новом окне выведено в опцию UserInterfaceOptions -> ForceOpenNewWindow

---

Наверх