关于动态建立控件问题，高手新手都请看看！

Question

先建立一个tspeedbutton,把它设置为控件数组。
就OK了。

Answer 1

for i := 0 to n do
 with TSpeedButton.Create(Self) do begin
   Parent := Self;
   Height := 22;
   Width := 23;
   Left := i * 23;
   ...
 end;

Answer 2

动态创建呗
tspeedbutton.parent := xxxxxxxx ;
tspeedbutton.left := xxxxxxxxxx ;
.
.
.
一堆乱七八糟的信息，然后create就可以了

Answer 3

定义数组
spbtn:array[1..100] of TSpeedButton;
用时再动态生成控件

Answer 4

还要加上onclick:=myproc;
然后在myproc中判断sender以确认按下的speedbutton处理相应的方法

Answer 5

谢谢各位，我有如下代码
procedure TForm1.FormCreate(Sender: TObject);
var
    e:array[1..100] of Tedit;
begin
    e[1]:=e[1].Create(self);
    e[1].Parent:=form1;
    e[1].Left:=0;
    e[1].Top:=0;
    e[1].Text:='aaaaaaa';
end;编译时没错，可运行时说访问地址错，请各位指正。

Answer 6

问题已解决,谢谢chechy和各位.

Answer 7

procedure TForm1.FormCreate(Sender: TObject);
var
    e:array[1..100] of Tedit;
begin
    e[1]:=e[1].Create(self);//错误,对象没创建,改为e[i]:=Tedit.create(self);
    e[1].Parent:=form1;
    e[1].Left:=0;
    e[1].Top:=0;
    e[1].Text:='aaaaaaa';
end;