WebBrowser1NewWindow2

[alpha1]

I have new one question . This code opens new TabSheet but why there doesn`t create any TWebbrowser in this TabSheet?

Delphi-Quellcode:

procedure TForm1.NewTab;
var
  ts: TTabSheet;
  WB: TWebbrowser;
begin
  // Create a new TabSheet
  ts := TsuiTabSheet.Create(suiPageControl1);
  try
    // Assign TTabSheet Properties
    ts.PageControl := PageControl1;
    ts.Parent := PageControl1;
    ts.PageIndex := PageControl1.ActivePageIndex + 1;

    // Create a TWebbrowser instance
    WB := TWebbrowser.Create(ts);

    // put TWebbrowser on TTabSheet
    TControl(WB).Parent := ts;

    // Assign Webbrowser Properties
    WB.Align := alClient;
    WB.Silent := True;
    WB.Visible := True;

    PageControl1.ActivePage := ts;

    // Assign Webbrowser Events
    WB.OnStatusTextChange := WebBrowser1StatusTextChange;
    WB.OnTitleChange := WebBrowser1TitleChange;
    WB.OnNewWindow2 := WebBrowser1NewWindow2;
    WB.OnCommandStateChange := WebBrowser1CommandStateChange;
    ImageButton1.Enabled := False;
    ImageButton2.Enabled := False;
  except
    ts.Free;
  end;
end;