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