在image中直接写字和涂鸦。

Question

对啊，你的Image上有图片吗？
试一下image.picture.bitmap.canvas?

Answer 1

1:首先定义一个标志，如move:bool
2:在image1MouseDown中让move:=true
在image1Mouseup中让move:=false;
3:在imageMouseMove中写
例如
if move then
    Form1.image1.canvas.linto(x,y);
等等

Answer 2

to aningstar:
  还有2个问题：
  1.你介绍的涂鸦方式，操作屏幕会抖动，不够理想，能够改善吗？
  2.关键是如何象text直接在Image上写字；
如能解决以上问题180分全部奉送，谢谢！

Answer 3

我想创建一个类,它继承了Image的canvas对象和Edit的text属性,用
delphi如何实现呢?

Answer 4

看不太懂你的意思，
分是想要，
说明白一点，
图鸦就是乱画吗？那就很简单阿
写字更不说了，不就是TextOut()就可以了吗？
难道还有什么高深的地方吗？

Answer 5

to aningstar & heming
在
   1:首先定义一个标志，如move:bool
2:在image1MouseDown中让move:=true
在image1Mouseup中让move:=false;
3:在imageMouseMove中写
例如
if move then
    Form1.image1.canvas.linto(x,y);
中,linto(x,y)函数该怎么写呢？

Answer 6

利用TImage的Canvas属性，什么都可做