neues browserfenster in tabsheet öffnen

[toms]

funktioniert's so?

Delphi-Quellcode:

procedure TForm1.webbrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  TabSheet: TTabSheet;
  Web: TWebbrowser;
begin
  TabSheet := TTabSheet.Create(Form1.pagecontrol1);

  with TabSheet do
  begin
    PageControl := Form1.pagecontrol1;
  end;
  Web := TWebbrowser.CreateParented(TabSheet.Handle);
  TabSheet.InsertControl(Web);
  TWinControl(Web).align := alClient;
  ppDisp := Web.DefaultDispatch;

  PageControl1.ActivePageIndex :=  PageControl1.PageCount-1;
  Web.OnNewWindow2 := Webbrowser1NewWindow2;
end;