如何在界面上动态添加Image

Question

我写了一段代码，为什么IMAGE没有显示出来
procedure TForm1.Button1Click(Sender: TObject);
var
   ImageA:array of TImage;
begin
   ImageA[0]:=TImage.create(self);
   ImageA[0].Width:=100;
   ImageA[0].Height:=100;
   ImageA[0].Left:=85;
   ImageA[0].Top:=50;
   ImageA[0].Picture.LoadFromFile('C:\WINDOWS\Black Thatch.bmp');
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
   ImageA:array of TImage;
begin
   SetLength(ImageA, 2);//首先要设置数组的长度
   ImageA[0]:=TImage.create(self);
   ImageA[0].Parent := Form1; //给对象设置一个Parent,让它在Parent上显示
   ImageA[0].Width:=100;
   ImageA[0].Height:=100;
   ImageA[0].Left:=85;
   ImageA[0].Top:=50;
   ImageA[0].Picture.LoadFromFile('C:\Exit.bmp');
end;

Answer 2

你没有设置ImageA[0].Parent，Delphi不知将图片放在什么容器中，只要加一句：
ImageA[0].Parent := Form1 就可以了。
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   ImageA:array of TImage;
begin
   SetLength(ImageA,3);
   ImageA[0]:=TImage.create(self);
   ImageA[0].Width:=100;
   ImageA[0].Height:=100;
   ImageA[0].Left:=85;
   ImageA[0].Top:=50;
   ImageA[0].Parent := Form1 ;
   ImageA[0].Picture.LoadFromFile('C:\WINDOWS\Blue Lace 16.bmp');
end;

Answer 3

>>var
>>   ImageA:array of TImage;
動態數組, 使用前都要先設置長度!

Answer 4

大概是你的image被别的控件挡住了吧？
加上一句：ImageA[0].BringToFront;
试一下

Answer 5

唉，
procedure TForm1.Button1Click(Sender: TObject);
var
   ImageA:array of TImage;
begin
   SetLength(ImageA, 2);//
   ImageA[0]:=TImage.create(self);
   ImageA[0].Parent := Form1;
   ImageA[0].Width:=100;
   ImageA[0].Height:=100;
   ImageA[0].Left:=85;
   ImageA[0].Top:=50;
   ImageA[0].Picture.LoadFromFile('d:\1.bmp');
end;