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