复制图片的一部分

 

// 复制图片的一部分 
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)