var
bmp1,bmp2,bmp3:tbitmap;
begin
bmp1:=tbitmap.create;
bmp2:=tbitmap.create;
bmp3:=tbitmap.create;
bmp1.loadfromfile('1.bmp');
bmp2.loadfromfile('2.bmp');
bmp3.width:=bmp1.widht+bmp2.width+1;
bmp3.canvas.draw(rect(0,0,bmp1.width,bmp1.height),bmp1);
bmp3.cavnas.movoto(bmp1.width+1,0);
bmp3.canvas.lineto(bmp1.width+1,bmp1.height);
bmp3.canvas.draw(rect(bmp1.width+1,0,bmp3.width,bmp3.height),bmp2);
bmp3.savetofile('3.bmp');
bmp1.free;
bmp2.free;
bmp3.free;
end;
以上程序可把1.bmp、2.bmp横向相加成3.bmp
程序是随手写的,可能不能直接编译,基本思路是这样的。