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

来源:互联网 发布:linux卸载firefox 编辑:程序博客网 时间:2024/05/16 23:39
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;
位置根据自己需要调整
原创粉丝点击