动态添加Image

Question

一个Frame中有一个Image1控件。（各种参数已设置好）如何动态去添加N个Image (最好是参数也和image1一样，只要设置其Left 和Top 就能在Frame中显示出来)。我的程序虽不出错。但看不到动态添加的Image
procedure TForm1.Button1Click(Sender: TObject);
var
Bimage:TImage;
begin
StrPicWhere:=extractfilepath(application.ExeName);
StrPicWhere:=StrPicWhere+ '照片片保存\' ;
bimage:=Timage.Create(frame1);bimage.AutoSize :=false;
bimage.Stretch :=true;
frame1.Image1.Picture.LoadFromFile(StrPicWhere +'IMG_0622.JPG');
bimage.Visible :=true
end;frame1是放在一个 form 中的
请大家帮我看看。怎么才能看到这个Image

Answer 1

1.bimage没设置Parent
2.bimage没装入图像，frame1.Image1.Picture.LoadFromFile(StrPicWhere +'IMG_0622.JPG')与bimage无关

Answer 2

顶楼上，呵呵
设置好parent,bimage.parent := frame1;
调整好bimage的位置和大小，bimage.left := XX;bimage.top := XX;bimage.heigth/width := xx;
装载bimage的图片
就可以显示了