neues browserfenster in tabsheet öffnen

[toms]

@S2B: Dein Code funktioniert bei mir auch nicht:

Eher so:

Delphi-Quellcode:

procedure TForm1.EmbeddedWB1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  TabSheet: TTabSheet;
  Web: TWebbrowser;
begin
  TabSheet := TTabSheet.Create(Form1.pagecontrol1);
  Web := TWebbrowser.Create(TabSheet);
  with TabSheet do
  begin
    Name := 'Fenster';
    Caption := Name;
    PageControl := Form1.pagecontrol1;
  end;
  ppDisp := Web.DefaultDispatch;
  TWinControl(Web).Parent := TabSheet;
end;