我死定了,临死前来这里看看!!!

Question

各位兄弟姐妹们:    请问一个最古老的问题,现在做什么软件最有前途啊!公司要改组,老总发命要方案,小弟我这次死定了,在这生死关头最后一次来到CSDN给这里的高手些告个别.愿你们过得比我好!唉!死定了!帮忙啊!再请问一下!我动态创建TSpeedButton按钮的代码是这样的:
For i := 1 to 5 do
begin
btn := TSpeedButton.create(self);
btn.parent := self;
btn.widht := 100;
btn.height := 25;
end;我想请问怎样把btn这个变量设为数组,目的就是为了让这些动态创建的按钮的宽随我的一个分割条移动而改变,请问该 怎样实现啊

Answer 1

var
  btns:array of tspeedbutton;
  btn:tspeedbutton;
begin
  setlengtn(btns,5);
  for i := 1 to 5 do
  begin
    btn := TSpeedButton.create(self);
    btn.parent := self;
    btn.widht := 100;
    btn.height := 25;
    btns[i-1]:=btn;
  end;
end;

Answer 2

var
  i : integer;
  BtnArray : array of[3] TSpeedButton;
begin
  for i = 0 to 2 do
  begin
    BtnArray[i] := TSpeedButton.create(self);
    BtnArray[i].parent := self;
    BtnArray[i].widht := 100;
    BtnArray[i].height := 25;
  end;
end;

Answer 3

r
  i : integer;
  BtnArray : array of[3] TSpeedButton;
begin
  for i = 0 to 2 do
  begin
    BtnArray[i] := TSpeedButton.create(self);
    BtnArray[i].parent := self;
    BtnArray[i].widht := 100;
    BtnArray[i].height := 25;
  end;
end;

Answer 4

r
  i : integer;
  BtnArray : array of[3] TSpeedButton;
begin
  for i = 0 to 2 do
  begin
    BtnArray[i] := TSpeedButton.create(self);
    BtnArray[i].parent := self;
    BtnArray[i].widht := 100;
    BtnArray[i].height := 25;
  end;
end;

Answer 5

同意 jiaclassmate(jia) 若加个with更好。呵

Answer 6

其实加个NAME 不就可以自己控制了？