Delphi 如何在Image图片上添加文字

最新推荐文章于 2024-06-18 15:42:16 发布

原创最新推荐文章于 2024-06-18 15:42:16 发布 · 8.5k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #图片

var
  MyCanvas1 : TControlCanvas;
Begin
  MyCanvas1:=TControlCanvas.Create;
  try
    Mycanvas1.control:=img1;
    MyCanvas1.StretchDraw(img1.clientRect,img1.Picture.Bitmap);


    MyCanvas1.Brush.Style :=bsClear;
    MyCanvas1.Textout(40,60,'这里添加文字');
  finally
    MyCanvas1.Free;
  end;
end;

位置根据自己需要调整