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;
位置根据自己需要调整
Delphi 如何在Image图片上添加文字
最新推荐文章于 2023-07-25 11:01:03 发布