DELPHI 切割一个图像中的圆形区域
圆形区域坐标已经确定 怎么用代码切割得到这个圆形区域图像 3q

[解决办法]
var
Bmp :TBitmap;
FRgn :HRGN;
begin
Bmp :=TBitmap.Create;
Bmp.PixelFormat :=Image1.Picture.Bitmap.PixelFormat;
Bmp.Width :=100;
Bmp.Height :=100;

BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,Image1.Canvas.Handle,80,
80,SRCCOPY); //要拷贝的位图
FRgn :=CreateEllipticRgn(0,0,100,100); //创建圆形区域
SelectClipRgn(Image1.Canvas.Handle,FRgn); //选择剪切区域
Image1.Canvas.Draw(0,0,Bmp); //位图位于区域内的部分加载
Bmp.Free;
DeleteObject(FRgn);
end;