关于动态生成(在程序运行过程中通过按钮)组件的问题?

Question

我要在主程序Form的中展示图片,需要运行以后通过按钮决定生成Image组件的个数.
请问怎么实现?老板催的紧,劳驾给为给个意见.

Answer 1

有几个就生成几个呗，一样的
  image := TImage.Create(self);//创建
  try
    image.AutoSize := true;//设置属性
    image.left:= ;
    image.top:= ;
   ///........
    image.Picture.LoadFromFile('D:\Downloads\asd.bmp');//加载图片
    image.Parent := self;  //这句不能少
  except
    image.Free;
  end;

Answer 2

Image: array of TImage; procedure CreateImage(Count: integer;TempImage: array of TImage);
var
 i: integer;
begin
  Setlength(TempImage,Count);
  for i := 0 to Count to
  begin
    TempImage[i] := TImage.Create(Self);
    TempImage.Name := Image + inttostr[i];
    .........
  end;
end;

Answer 3

采用下面的办法好象不行，因为出现Undeclared identified 'Image'的错误。
不知道怎么回事，麻烦再给看一下，谢谢！
  image := TImage.Create(self);//创建
  try
    image.AutoSize := true;//设置属性
    image.left:= ;
    image.top:= ;
   ///........
    image.Picture.LoadFromFile('D:\Downloads\asd.bmp');//加载图片
    image.Parent := self;  //这句不能少
  except
    image.Free;
  end;

Answer 4

我的意思是原来的Form中也没有一个Image，完全通过按钮来实现。

Answer 5

采用后面一种方法也出现了同样的问题，提示出Undeclared identified 'TImage'的错误 。
不知道要在那里怎么样声明一下。麻烦继续帮忙看一下，谢谢！

Answer 6

image:TImage;
 image:= TImage.Create(self);//创建
这个image 是自己定义的变量，不定义当然没有了 ：Undeclared identified 'Image'的错误
如果image个数据不确定，那就动态创建象 GARNETT2183(極品狼王)给出的那样，程序最后记的释放

Answer 7

提示出Undeclared identified 'TImage'的错误 你没引用 ExtCtrls 吧
uses ExtCtrls

Answer 8

这样看来生成组件应该没有问题了,但是命名好象还不可以:
TempImage[i].Name := Image + inttostr[i];
问题是There is no overloaded wersion of 'inttostr' that can be called  with these aguments;
麻烦各位再给指点一下．谢谢！