这个方法很多哦，你可以先算出每个小图的长宽，再新建小图去取就行了。
比如 原图为bmp1,我取第一张小图为bmp2;
var
bmp2 : TBitmap;
i,j : integer;
begin
bmp2 := TBitmap.Create(nil);
bmp2.width := 10; //依小图长宽定
bmp2.height := 10;//依小图长宽定
for i := 0 to bmp2.Width - 1 do
begin
for j := 0 to bmp2.Height - 1 do
begin
bmp2.Canvas.Pixels[i,j] := bmp1.Canvas.Pixels[i,j]; //将大图里对应的像素赋值给小图
end;
end;
end;
手打的，看看有没有语法错误
这是图像处理问题，可以做的，需要收点辛苦费qq894822408
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024