如何在图片中添加文字

在图片上写字的哦
用canvas

将图片加载到TBitmap对象，用Canvas.TextOut输出文字，可以用Canvas.Font设置字体大小颜色等，最后保存就可以。

使用Canvas.TextOut，格式：Canvas.TextOut（x,y,str）,str为string类型；如在x=100，y=200处显示“你好”，就是Image1.Canvas.TextOut（100,200,'你好'）

是要形成这样的效果：
鼠标拖一下出来一个框，然后在框里面写字。。

计算鼠标坐标处理。。

mark!

posted on 2008-12-19 09:58 delphi2007 阅读(425) 评论(0) 编辑收藏举报