请问在form或scrollbox中如何动态生成控件呢，如button,listbox,text等.

Question

请问在scrollbox中如何动态生成控件呢，如button,listbox,text等.

Answer 1

var
  NewButton:TButton;
  NewListBox:TListBox;
  NewEdit:TEdit;
begin
  NewButton:=TButton.Create(self) ;
  NewListBox:=TListBox.Create(self) ;
  NewEdit:=TEdit.Create(self) ;
-----------------------------------------------------------------
我是中国鹰派！
拒绝日货！打倒小日本！

Answer 2

应该这样
var button:tbutton;
begin
  button:=tbutton.create(self);
  button.left:=1;
  button.top:=1;
  button.parent:=scrollbox;
end;

Answer 3

var
  NewButton:TButton;
 begin
  NewButton:=TButton.Create(self) ;
  NewButton.parent:=ScrollBox1;//这样就可以创建 在scrollbox中了
end;

Answer 4

呵呵，让它们显示吧！  NewButton.Visible:=true;  NewListBox.Visible:=true;
  NewEdit.Visible:=true;但是它们位置还是要调整一下的，不然会挤在一起的！！-----------------------------------------------------------------
我是中国鹰派！
拒绝日货！打倒小日本！

Answer 5

var
  NewButton:TButton;
 begin
  NewButton:=TButton.Create(self) ;
  NewButton.parent:=ScrollBox1;//这样就可以创建 在scrollbox中了
end;

Answer 6

呵呵，让它们显示吧！  NewButton.Visible:=true;  NewListBox.Visible:=true;
  NewEdit.Visible:=true;但是它们位置还是要调整一下的，不然会挤在一起的！！-----------------------------------------------------------------
我是中国鹰派！
拒绝日货！打倒小日本！

Answer 7

var
  NewButton:TButton;
  NewListBox:TListBox;
  NewEdit:TEdit;
begin
  NewButton:=TButton.Create(self) ;
  Newbutton.Parent:=ScrollBox1;
  NewListBox:=TListBox.Create(self) ;
  NewListbox.Parent:=Scrollbox1;
  NewEdit:=TEdit.Create(self) ;
  NewEdit.Parent:=scrollBox1;

Answer 8

var
  NewButton:TButton;
  NewListBox:TListBox;
  NewEdit:TEdit;
begin
  NewButton:=TButton.Create(self) ;
  Newbutton.Parent:=form1;
  Newbutton.showhint:=true;
  Newbutton.Visible :=true;
  Newbutton.top:=10;
  NewListBox:=TListBox.Create(self) ;
  NewListbox.Parent:=form1;
  NewListBox.Visible :=true;
  NewListbox.showhint:=true;
  NewListbox.top:=100;
  NewEdit:=TEdit.Create(self) ;
  NewEdit.Parent:=form1;
  NewEdit.top:=200;
  NewEdit.showhint:=true;
  NewEdit.Visible :=true;