图象显示问题~~ ( 积分: 5 )

我现在有一张大图，上边是把一些小的图片拼在一起,然后根据给定的四个点的数据，如Rect(450, 212, 451, 213)；来截取一个图形在image里面显示;

var
Bitmap: TBitmap;
MyRect, MyOther: TRect;
begin

MyRect := Rect(10,10,100,100);

MyOther := Rect(10,111,100, 201);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:/windows/tartan.bmp');
image1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
image1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
Bitmap.Free;
end;

用以上方式可以把图形显示出来,但是如何让图形消失呢?

我现在有一张大图，上边是把一些小的图片拼在一起,然后根据给定的四个点的数据，如Rect(450, 212, 451, 213)；来截取一个图形在image里面显示;

var
Bitmap: TBitmap;
MyRect, MyOther: TRect;
begin

MyRect := Rect(10,10,100,100);

MyOther := Rect(10,111,100, 201);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:/windows/tartan.bmp');
image1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
image1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
Bitmap.Free;
end;

用以上方式可以把图形显示出来,但是如何让图形消失呢?

这个没有人知道吗？

请帮忙，要分以后也可以给~~

image.bitmap.picture := nil;

接受答案了.