急--100分：如何用DELPHI动态添加控件？

Question

var mycontrolcount:integer;
procedure TForm1.Button1Click(Sender: TObject);
var edit:Tedit;
begin
edit:=tedit.Create(self);
edit.Name:='edit'+inttostr(mycontrolcount);
edit.Width:=100;
edit.Left :=100;
edit.Top :=(30)*(mycontrolcount-1);
edit.Text :=edit.Name ;
edit.parent:=self;
edit.Visible :=true;
mycontrolcount:=mycontrolcount+1;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  TabSheet5: TTabSheet;
begin
  TabSheet5 := TTabSheet.Create(PageControl1);
  TabSheet5.PageControl := PageControl1;
  TabSheet5.Show;
end;

Answer 2

然后再每一个tabsheet,再加一个webbrowser控件。Thx.

Answer 3

如何删除动态创建的tabsheet ?
我在hide中删除，老说内存访问错误（因为tabsheet里面有webbrowser构件）

Answer 4

var
  TabSheet3: TTabSheet;
begin
  tabsheet3:=TTabSheet.create(self);
  tabsheet3.PageControl:= PageControl1;
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  TabSheet5: TTabSheet;
begin
  TabSheet5 := TTabSheet.Create(PageControl1);
  TabSheet5.PageControl := PageControl1;
  TabSheet5.Show;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  PageControl1.Pages[PageControl1.ActivePageIndex ].Free;
end;