本文共 1283 字，大约阅读时间需要 4 分钟。

RAD Studio 10.4 测试√

procedure TMainF.Button4Click(Sender: TObject);var  Bmp: TBitmap;  Rhandle: HRGN;//  R: TRect;begin  Image2.Picture.LoadFromFile('head.jpg');                                    // 加载图片//  Image2.AutoSize := true;                                                  // image大小自动调整//  R := Image2.ClientRect;  Bmp := TBitmap.Create;                                                      // 创建 Bmp  // bmp.LoadFromFile('1.bmp');                                               // 加载bmp图片  Bmp.Assign(Image2.Picture.Graphic);//  Rhandle:=CreateRoundRectRgn(100,0,200,100,100,100);  Rhandle := CreateRoundRectRgn(0, 0, Image2.Width, Image2.height, Image2.Width, Image2.height);        // 创建圆角矩形Rgn  Image2.Picture.Assign(nil);//  Image2.AutoSize := false;//  Image2.Stretch := false;//  Image2.height := R.Bottom - R.Top;//  Image2.Width := R.Right - R.Left;  Image2.Canvas.Brush.Color := clRed;  Image2.Canvas.FillRect(Image2.ClientRect);  SelectClipRgn(Image2.Canvas.Handle, Rhandle);                               // 选择剪辑片段  Image2.Canvas.Draw(0, 0, Bmp);//  DeleteObject(Rhandle);//  Image2.Canvas.Brush.Style := bsClear;  Image2.Picture.Bitmap.TransparentColor := clRed;//  Image2.Picture.Bitmap.Transparent := true;  Image2.Transparent := true;end;

学习中记录的一点点笔记，以便以后翻阅。