webbrawser

[leon2009sp]

я загружаю гуглю

links:=(((TWebBrowser(ASender).document as IHTMLDocument2).activeElement as IHTMLElement).getAttribute('href', 0));
ppDisp:=WebBrowser1.ControlInterface;
TabSheet := TTabSheet.Create(PageControl1);
TabSheet.Caption := links;
TabSheet.PageControl := PageControl1;
WebBrowser := TWebBrowser.Create(Self);
TWinControl(WebBrowser).Parent:=TabSheet;
TWinControl(WebBrowser).Align := alClient;
pagecontrol1.ActivePage:=tabsheet;
WebBrowser.Navigate(links);

но: из первой tabsheet1 у меня открывает в моем браузере:

ppDisp:=WebBrowser1.ControlInterface;

а которые динамически создаются в других браузерах что можно сделать?

[BDA]

Назначать динамически созданному браузеру свой обработчик, тот же, что и у браузера на tabsheet1.

[leon2009sp]

я уже пробовал:

ppDisp:=WebBrowser.ControlInterface;

убрал

ppDisp:=WebBrowser1.ControlInterface;

[BDA]

У меня вполне срабатывает:

WebBrowser.OnNewWindow2 := WebBrowser1NewWindow2;

[leon2009sp]

Спасибо!!! везде по на втыкал = сейчас в божий вид приведу и полный исходник закину.

[leon2009sp]

uses MSHTML_TLB
  var
  IDoc: IHTMLDocument2;  script : string;
begin
Webbrowser1.Document.QueryInterface(IHTMLDocument2, iDoc);
ExecuteScript(iDoc, 'document.login.submit()', 'JavaScript');

WebBrowser.OnNewWindow2 := WebBrowser1NewWindow2;

и

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;
var
  win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  if doc <> nil then
  begin
    try
      win := doc.parentWindow;
      if win <> nil then
      begin
        try
          Olelanguage := language;
          win.ExecScript(script, Olelanguage);
        finally
          win := nil;
        end;
      end;
    finally
      doc := nil;
    end;
  end;
end;

не фурычит может я не туда написал?

[leon2009sp]

procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);
  var
  IDoc: IHTMLDocument2;  script : string;
 begin
Webbrowser1.Document.QueryInterface(IHTMLDocument2, iDoc);
ExecuteScript(iDoc, 'document.login.submit()', 'JavaScript');
end

[BDA]

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

[leon2009sp]

работает, забываю что IE7 только у меня

[leon2009sp]

скачать можно здесь -=СКАЧАТЬ=-