[kdy]

пишу программу, которая должна выполнять в инете некоторую последовательность действий...
есть форма, на ней PageControl, на нем соответсвено два TabSheet, основной и дополнительный....
на основном WebBrowser, в котором выполняются определеные действия... при нажатии на одну из ссылок должно открываться новая закладка, по крайней мере во всех браузерах так делается
по умолчанию открывается ИЕ, но хоца, что бы открывалась закладка с новым WebBrowserом. для этого я надумал перехватить событие NewWindow2, но оно выдает ошибку... текст обработчика события привожу:

Код:

procedure TMainForm.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
  PageControl1.ActivePage := TabSheet2;
  WebBrowser2 := TWebBrowser.Create(TabSheet2);
  WebBrowser2.SetFocus;
  WebBrowser2.Align := alClient;
end;

Admin: Не забываем про теги!

что я делаю неправильно и как это поправить?

[friz]

Код:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
WebBrowser2.RegisterAsBrowser := true;
ppDisp := WebBrowser2.Application;
end;

Кто ищет - тот найдет

[kdy]

2 friz
благодарю за помощь, но к сожалению такой код не работает так, как хотелось бы...
в данном коде не создается WebBrowser, а он должен быть создан заранее... а у меня предполагается много таких страниц...
в WebBrowser2 отображается та же страница, что и в вызвавшем браузере...
на старанице, которая должна загрузится в WebBrowser2 должна быть ссылка, которая закроет даную закладку, т.е. мне ее надо создать в обработчике, а не в конструкторе...

[kdy]

эксперементы продолжаю...

procedure TMainForm.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
WebBrowser2 := TWebBrowser.Create(MainForm);
TWinControl(WebBrowser2).Name := 'MyWebBrowser';
TWinControl(WebBrowser2).Parent := TabSheet2;
WebBrowser2.Align := alClient;
end;

даный вариант обработчика создает WebBrowser там где надо, в нужном виде, но после его создания открывается ИЕ... а я хочу, что бы ссылка открывалась в создавшемся элементе...

[friz]

чего ты мучаешься? тут же все просто

Код:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
webbrowser2: TWebBrowser;
begin
WebBrowser2 := TWebBrowser.Create(MainForm);
TWinControl(WebBrowser2).Name := 'MyWebBrowser';
TWinControl(WebBrowser2).Parent := TabSheet2;
WebBrowser2.Align := alClient;
WebBrowser2.RegisterAsBrowser := true;
ppDisp := WebBrowser2.Application;
end;

и все!