var images: array[1..32] of Timage; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=1 to 32 do begin images[i]:=TImage.Create(self); images[i].Parent:=self;//这个必须设置 images[i].Left:=i*100;//设置位置 images[i].Picture.LoadFromFile('d:\1.bmp'); end; end;
回楼上,imges[i].Parent:=FormMain(FormMain是主窗口),是这样设置吗?运行后原来该显示图片的地方白色一闪就没了.
var
images: array[1..32] of Timage;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 32 do
begin
images[i]:=TImage.Create(self);
images[i].Parent:=self;//这个必须设置
images[i].Left:=i*100;//设置位置
images[i].Picture.LoadFromFile('d:\1.bmp');
end;
end;