to 卷起千堆雪tyn(10分)

可否给段代码，让加载的多个图像在同一个Image中显示（以3*3的格式）

TO 卷起千堆雪tyn
不是这个意思，我是指：比如，同时载入9副图，并把这9幅图以3行，每行3幅显示在Image上

真搞不懂了，
楼上已经说的很清楚了呀

就是 Image1.Canvas.Draw(x,y,bmp);这一句 按自己的要求修改一下。

我现在有很多图，这样写岂不是很麻烦，能否直接定义一个数组，把图放到数组里，再进行
调用？

我看了这样的问答配对就想...
算了,闭上我的臭嘴.

多人接受答案了。

3×3太小了吧？

procedure TForm1.Button1Click(Sender: TObject);
var
bmp :TBitmap;
begin
bmp :=TBitmap.Create;
bmp.LoadFromFile('f:/图片/图标/4.bmp');
Image1.Canvas.Draw(0,0,bmp);
bmp.Free;

bmp :=TBitmap.Create;
bmp.LoadFromFile('f:/图片/图标/5.bmp');
Image1.Canvas.Draw(20,0,bmp);
bmp.Free;
end;

就是上面的意思了，你自己看看。

Image1.Canvas.Draw(x,y,...)

实际就是改变x,y！！！


var
bmp :array of TBitmap;
i :Integer;
begin
SetLength(bmp,8);
for i :=1 to 9 do
begin
bmp :=TBitmap.Create;
bmp.LoadFromFile(....);
........
bmp.Free;
end;
bmp :=nil;
end;

应该明白了吧？？？