复制图片的一部分

 

// 复制图片的一部分 
procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  MyRect: TRect;
begin
  MyRect := Rect( 10, 10, 100, 100); //定义复制范围
  Bitmap := TBitmap.Create; //生成Bitmap对象
  Bitmap.LoadFromFile( '1.bmp');
  Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
   //将图片复制到窗体中
  Bitmap.Free;
end;

来自为知笔记(Wiz)