怎样在form上动态生成可视控件？

Question

procedure Form1.OnEdit1Change(Sender:TObject);
var
  iNeedNum,iCount:Integer;
begin
  iNeedNum := StrToIntDef(Edit1.Text,-1);
  for iCount := 0 to iCount do
  begin
    with TButton.Create(Self) do
    begin
      Name := Format('Button%d',[iCount+1]);
      Parent := self;
      Left   :=  你想要的位置
      To     :=
      //Height := 可以不要，默认值
      //Widht  :=
      BringToFont;
    end;
  end;
end;

Answer 1

To     := 应该是Top :=
还有如果你要中途释放的话
FButtons:Array of TButton;//放在Form1的Private中
procedure Form1.OnEdit1Change(Sender:TObject);
var
  iNeedNum,iCount:Integer;
begin
  iNeedNum := StrToIntDef(Edit1.Text,-1);
  SetLength(FButtons,iNeedNum);
  for iCount := 0 to iCount do
  begin
    FButtons[iCount] := TButton.Create(Self);
    with FButtons[iCount] do
    begin
      Name := Format('Button%d',[iCount+1]);
      Parent := self;
      Left   :=  你想要的位置
      Top     :=
      //Height := 可以不要，默认值
      //Widht  :=
      BringToFont;
    end;
  end;
end;在其他地方就可以引用FButtons了比如说我要释放某个
FButtons[1].Free;

Answer 2

begin
  with TButton.Create(Self) do
  begin
    Parent := Toolbar1;
    Caption := 'Button' + Edit1.Text;
  end;
end;

Answer 3

唉，原来差了这个
BringToFont;

Answer 4

如果你正确的设定了parent属性，为什么还要 BringToFont;

Answer 5

一个就是TBUTTON.CREATE,另一个就是BUTTON的名字不要重复！

Answer 6

begin
  with TButton.Create(Self) do
  begin
    Parent := form1;
    Caption := 'Button' + Edit1.Text;
  end;
end;

Answer 7

dButton.ParentWindow := form1.handle;
1.声明要创建的控件的类型 如:Tbutton,Tedit...
2.调用构造器创建空间同时指定控件的owner,如:self
3.指定它的父亲控件如:form1,form2,或当前的对象实例的指针:self
4.指定名称，高度等属性
5.调用show方法显示空间!
以后就可以对这个控件的实例当成一个类型来进行关于类的操作，如赋值，改属性等，这个顺序是不固定的，但声明实例，和创建实例这步是固定的。创建完成后就可以把这个实例当成是窗体中有这个控件一样对等了，b.parent:=self的意思是它的父类是自己，也就是说它是独立的存在并没有存放到某个控件上！parent是控件的父亲控件属性，是Twincontrol类型的所以不可以是图形控件类如
Tgraphicontrol类型的空间，所以不能把parent属性指向image等控件，不过可以指向如panel,form,pagecontrol等等控件!