TWebBrowser problem mit neuen fenstern

[scp]

Etwa so:

Delphi-Quellcode:

var
  ts: TTabsheet;
  wb: TWebBrowser;
begin
  ts := TTabsheet.Create(PageControl1);
  ts.Caption := 'Neu';
  ts.PageControl := PageControl1;
  PageControl1.ActivePage := ts;

  wb := TWebBrowser.Create(ts);
  ts.InsertControl(wb);
  wb.Align := alClient;

  wb.OnNewWindow2 := WebBrowser1NewWindow2;
  //.....
end;