如何合并两个图片？

Question

我设了两个IMAGE控件，各有一张图片。请问有什么方法将两个图片合并为一张新图片。也就是叠加。能否给出代码？

Answer 1

在VB中可以调用一个paintpicture(好象是) API函数可以实现图片的“与”
“或”运算，不知道在DELPHI中如何调用

Answer 2

不难，只要的象素进行“与”操作就行了。
var
  DestRect,SrcRect:TRect;
begin
  DestRect:=Rect(0,0,Image2.Width,Image2.Height);
  SrcRect :=DestRect;
  Image2.Canvas.CopyMode:=cmSrcAnd;
  Image2.Canvas.CopyRect(DestRect,Image1.Canvas,SrcRect);
  Image1.Visible:=False;
end;