Новые окна webbrowser.

[Vaigard]

Есть проблема. Когда в вышеуказанном компоненте я перехожу по какой-либо ссылке, например, в поисковике, то ссылка открывается в новом окне Explorer. А как сделать, чтобы она открывалась в том же компоненте? Или на новой форме. Для этого надо создать форму и компонент на ней, но у меня выводит ошибку. Вот мой код:

OnNewWindow2(...);
var
f:tform;
w:twebbrowser;
begin
f:=tform.create(self);
with f do begin
left:=form1.left;
top:=form1.top;
width:=form1.width;
height:=form1.height;
end;
w:=twebbrowser.create(self);
with w do begin
parent:=f;
left:=webbrowser1.left;
top:=webbrowser1.top;
width:=webbrowser1.width;
height:=webbrowser1.height;
end;

Выводит ошибку на строке

parent:=f;

Как мне указать форму для браузера, и как сделать, чтобы ссылка передавалась не эксплореру, а ему?

[Vaigard]

Неужели никто не поможет?

[Пепел Феникса]

какую ошибку выводит?
я не телепат...и еще замените

f:=tform.create(self);

на

f:=tform.create(Application);//мне кажется так логичнее.

но это не обязательно.

и(уже следует)

w:=twebbrowser.create(self);

на

w:=twebbrowser.create(f);

[Vaigard]

Ага, спасибо А как сделать, чтобы вместо нового окна ссылка открывалась в новой форме?

[Vaigard]

Задам вопрос еще раз, чтобы подняться вверх списка Как сделать так, чтобы активированная ссылка в окне WebBrowser открывалась в том же компоненте или на свежесозданном, а не в IExplorer?

[WhiteSpirit]

Напишите в обработчике события Cancel:=True

[Voody]

Сообщение от Vaigard

Задам вопрос еще раз, чтобы подняться вверх списка Как сделать так, чтобы активированная ссылка в окне WebBrowser открывалась в том же компоненте или на свежесозданном, а не в IExplorer?

Открытие ссылки с атрибутом "target="_blank"" в новом компоненте на новой форме. Пример на EmbeddedWB. Вроде с Twebbrowser аналогично.

procedure TForm1.EmbeddedWB1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
var newForm: TForm1;
begin
 newForm := TForm1.Create(Application);
 newForm.Show;
 ppDisp := newForm.EmbeddedWB1.ControlInterface;
end;

[Vaigard]

Попробую, спасибо

[Vaigard]

Так, а где взять embeddedwb? Что-то я его не нашел на ближайших вкладках.

[Voody]

Сообщение от Vaigard

Так, а где взять embeddedwb? Что-то я его не нашел на ближайших вкладках.

http://bsalsa.com/downloads.html