delphi 实现Image1图像圆角

procedure TForm1.FormPaint(Sender: TObject);

var

  Rgn: HRgn;

  Box: TRect;

begin

  Rgn := CreateRoundRectRgn(10, 10, 200, 150, 30, 30);

  try

    GetRgnBox(Rgn, Box);

    Canvas.Brush.Color := clGreen;

    FillRgn(Canvas.Handle, Rgn, Canvas.Brush.Handle);

  finally

    DeleteObject(Rgn);

  end;

  Rgn := CreateEllipticRgnIndirect(Rect(220, 220, 320, 320));

  try

    Canvas.Brush.Color := clRed;

    ExtSelectClipRgn(Canvas.Handle, Rgn, RGN_AND);

    Canvas.Draw(220, 220, Image1.Picture.Graphic);

  finally

    DeleteObject(Rgn);

  end;

end;