如何把多个图像合并到一个图像 ( 积分: 100 )

如个把四个图像合并到一个图像中,如第一个图像放到新图像的(0,0),第二个图像放到新图像的(0,200),第三个图像放到新图像的(200,0),第四个图像放到新图像的(200,200),其中每个小图像的大小为200X200,新图像的大小的400X400

如个把四个图像合并到一个图像中,如第一个图像放到新图像的(0,0),第二个图像放到新图像的(0,200),第三个图像放到新图像的(200,0),第四个图像放到新图像的(200,200),其中每个小图像的大小为200X200,新图像的大小的400X400

例子：
//图像复制 拷贝
BitBlt(DesCanvas.Handle, 0, 0, DW, DH, DesBitMap.Canvas.Handle, 0, 0, SRCCOPY);

更详细的代码
procedure TForm1.Button1Click(Sender: TObject);
begin
LImage.Width := 400;
LImage.Height := 400;
BitBlt(LImage.Canvas.Handle, 0, 0, 200, 200, Image1.Canvas.Handle , 0, 0, SRCCOPY);
BitBlt(LImage.Canvas.Handle, 0, 200, 200, 200, Image2.Canvas.Handle , 0, 0, SRCCOPY);
BitBlt(LImage.Canvas.Handle, 200, 0, 200, 200, Image3.Canvas.Handle , 0, 0, SRCCOPY);
BitBlt(LImage.Canvas.Handle, 200, 200, 200, 200, Image4.Canvas.Handle , 0, 0, SRCCOPY);
end;

think you