给image上图片添加文字,我的需求是鼠标点击图片时候在图片上出现一个方框,方框可以透明,也可以不透明,添加的文字可以任意拖动。当鼠标点击方框以外的地方实现文字的添加。需求就像WINDOWS自带的画图工具的添加文字一样,有实例更好,谢谢。
解决方案 »
- 事务没结束,程序没退出,数据就自动commit了,这是怎么回事啊???
- 一个奇怪的问题,大家帮我看一看,???
- 求助,急!如何实现在DBGrid中对任意字段进行模糊查找并定位的功能
- 我是初学的,请问怎么获得日期的年月日
- Delphi中如何实现托盘图标
- DElphi程序如何实现下面功能!(紧急)
- 怎样在两个DBGRID之间唾液数据?最好有源代码
- 比一比谁见过的BCB OR DELPHI书最厚?今天去书店看书把我胳膊累疼了。UPUP来吧。
- 我想做一个有自动完成功能的输入框,请问该如何下手?
- 请问StringGrid在设计时能否在 一些单元里填上 初值?
- image + scrollbox如何设置,就是使大图有滚动条
- 一个delphi初学者的问题.
如果只是象Windows中画笔的话,很简单。
.......
procedure Form1.OnMouseDown(sender,x,y);
var
aLabel:TLabel;
begin
aLabel:=TLabel.create(self);
aLabel.parent:=self.image1;
aLabel.top:=y;
aLabel.left:=x;
aLabel.setfoucs;
end;
程序大概是这样。
利用TCanvas的方法输出文字