简单问题

Question

已经有一个按钮button1,还有一个pagecontrol（包含一页tabsheet1），tabsheet1上放了个webbroswer1
怎么才能使点击button1就能自动加一个tabsheet，并且tabsheet上自动加载一个webbrowser

Answer 1

procedure TMainForm.Button1Click(Sender: TObject);
var
  t: TTabSheet;
  w: TWebBrowser;
begin
  t := TTabSheet.Create(PageControl1);
  t.PageControl := PageControl1;
  t.Caption := 'TabSheet' + IntToStr(PageControl1.PageCount);
  PageControl1.ActivePageIndex := t.PageIndex; 
  w := TWebBrowser.Create(t);
  TWinControl(w).Parent := t;
  w.Align := alClient;
end;