用下面这个过程可以完成:<br>procedure BmpRight20(Source: TBitmap); //Source为想要左移的位图,返回结果也在这<br>var<br> TempBmp: TBitmap;<br>begin<br> TempBmp := TBitmap.Create; //临时对象<br> try<br> TempBmp.Assign(Source); <br> Bitblt(TempBmp.Canvas.Handle, 0, 0, Source.Width - 20, Source.Height,<br> Source.Canvas.Handle, 20, 0, SRCCOPY); //复制20象素右边的图像<br> Bitblt(TempBmp.Canvas.Handle, Source.Width - 20, 0, 20, Source.Height,<br> Source.Canvas.Handle, 0, 0, SRCCOPY); //复制左边20素的图像<br> Source.Assign(TempBmp); //传回给原对象<br> finally<br> TempBmp.Free;<br> end;<br>end;<br><br>