Delphi高手快请进!(100分)

Delphi高手快请进!
小弟现在有一事相求:请问如何将图片的一部分单独显示出来!具体地说就是,我用delphi处
理了一个图片,处理的结果是找出图片的一个特定的部分,现在我已经找出来啦,可是我却不
知道怎么才能把那一部分单独的显示出来,请各位高手出手相救!谢谢大家啦!

你可以用TCanvas类的CopyRect来做。

CopyRect

矩形的话则用CopyRect，如果是圆形区域
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Bmp :TBitmap;
FRgn :HRGN;
begin
Bmp :=TBitmap.Create;
Bmp.PixelFormat :=Image1.Picture.Bitmap.PixelFormat;
Bmp.Width :=200;
Bmp.Height :=200;

BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,Image1.Canvas.Handle,80,
80,SRCCOPY);
FRgn :=CreateEllipticRgn(0,0,200,200);
SelectClipRgn(Image1.Canvas.Handle,FRgn);
Image1.Canvas.Draw(0,0,Bmp);

DeleteObject(FRgn);
Bmp.Free;
end;