说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

DELPHI中MEMO组件的光标定位

HTML文档下载 WORD文档下载 PDF文档下载
DELPHI中MEMO组件的光标定位

作为一个与VisualBasic相类似,但功能更强大的可视化程序开发工具,Delphi同样提供了大量的简单便捷的控制组件,通过这些组件,程序设计者可以设计出规范美观的界面。并且规范化使用者的输入内容。其中,Delphi提供的编辑组件中的Memo组件的功能是非常丰富的。它可以完成对文字的编辑、修改、文件的调入和存储文件等功能,但是与一般的字处理软件相比,它并未提供编辑时对光标位置、所在行及所在列的信息,这不能说不是一个缺憾。其实,通过很简单的几行程序就可以实现这一要求:

先在Form上放置三个Label组件,并在程序代码的前面声明下面这三个变量为整型数,即:

VarLpos,Cpos,Linelength:integer;

其中Lpos是行的值(按照Memo的规定,第一行为0),Cpos是字符的位置,LineLength是当前行的字符总个数。

然后,再将下面的七行程序代码分别加入Memo1的OnMouseDown和OnKeyDown的事件代码处即可。

Lops:=SendMessage(memol.Handle,EM—LINEFROMCHAR,Memol.SelStart,0);

Cpos:=SendMessage(meno1.Handle,EM—LINEINDEX,Lpos,0);

LineLength:=SendMessage(memol.handle,EM—LINELENGTH,Cpos,0);

Cpos:=Memol.SelStart-CPos;

Labell.caption:=inttostr(lpos);

Label2.caption:=inttostr(cpos);

Label3.caption:=inttostr(linelength);

这样,执行程序后,随着在Memo组件中的编辑操作,Label1、Label2和Label3就将显示出相对应的当前行值、字符位置与当前行的字符总个数了。

通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 GitLab 4.0发布 更好地支持PostgreSQL 傻瓜式移动应用开发平台:专访摩讯创始人赵健 日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 使用Storm实现实时大数据分析! 孙博凯:微软日益开放,Windows Azure更加拥抱开源 大数据计算:如何仅用1.5KB内存计算十亿个不同的对象 我们为什么爱EC2和S3却彻底抛弃EBS 不畏Surface:诺基亚明年或推Windows平板 Linus Torvalds:用户程序被破坏永远是Kernel的问题! Python高效编程技巧 苹果加速硬件迭代 iPad5原型机曝光 宏碁推99美金平板 价格创历史新低 黑莓10全键盘版代号N系列,谍照泄露! 那些年我们用过的互联网产品 QQ亿级业务演变:从文件、音视频说起 少年企鹅的成长之旅:QQ体验设计发展史 全球超算Top 500:Linux已占93.8%,Windows或将消失 AWS东部地区再次发生宕机 Netflix等网站受影响 2012年全球最美的十个数据中心 CodeCards:程序员电子贺卡DIY项目 求救!!为什么我一打开windows就出现说缺少dll文件,storm.dll,还有load.exe.是为什么呀? 请大虾出手:MFC的DLL工程, 我实现了把一个dll工程的menu装载到我的主工程,但与其对应的ToolBar怎么调出来呢??我很着急! 在mdi表單中調用設為最大化的子表單時,它首先顯示小的子表單,然后才把它最大化,影響美觀,有何辦法解決? 关于在菜单中陷入文本框 20分求助有关SQL数据库的问题(为什么select...into语句无法执行) 哪有里Crystal Reports可以下载(无内容)? Where the 广东外贸外语学院 关于ODBC客户机端配置的问题 谁能给我一个delphi连接access数据库的实例,小弟万分感谢!!!!!!!!!!!!! 我机器里,98,2000装在C盘,XP装在D盘,现在我想只留下XP,不知道该怎么处理???????????????????????????? 如何实现5M以上的文件的上传 从windows进入unix Oracle 中文输入 是否onkeypress和onkeydown不能同时使用呀? Delphi 5下要做一个多 Y 轴的曲线图形,如何实现? 哪有xteamlindows下载?? 万分感谢!!!!! borland 会不会出一个 C# Builder? 乱码,头大了,不知道为什么pb导入excel怎么办 数据统计问题,请大侠门帮忙!急急急!!! 求解ZModem通讯协议源程序----有谁用过CZModemCore 我也不知道对不对! 最高级的问题?搞一个专业的VC程序员基地~~~~~~ 在研究directshow filter的push模式的兄弟请进 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了 有两个问题,每题40分,马上给分!!!! 如何使用打印机? 在爱情方面谁能做到这一点? 谁有 file cutter v1.4的注册码? 有急用! 搞一个专业的VC程序员基地~~~~~~谁愿意加入????? 最新发现:原来C++Bilder的项目文件(.bpr)是XML格式的! 关于FAT32和NTSF的问题 如何用VC实现Email的发送? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题;否则我快下岗了! 搞一个专业的VC程序员基地~~~~~~需要网页制作高手!! ADO 的用法 m_pRecordset->Fields->GetItem(index)->GetName() 关于CRichEditCtrl的问题之二,取的当前可见行数? 请问在哪里下载IMAIL SERVER???各位帮帮忙!!! 高手请回答,ADO和BDE到底有什么区别,你选择谁?为什么? 高分求教!!!!!!!!!!!!!!!!怎样得到局域网上所有的机器名?(普通WINDOWS网络,用VB?,好象用WNET API可以的) 如何安装com.ibm.bridge2java.*这个包阿? 有人吗???求救! 你也许也会遇到这样的问题? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题!!! 大虾看过来. 一个access表一万条记录,想转到Mysql下(Mysql在Linux下)用什么方法和什么语言来做好? rs.CursorLocation=aduseclient是什么东西? 800分+工资管理原代码,如何解决ActiveReports打印图片的一个很难题! 简单SQL,免费送分! 用ASP如何上传文件,可以用组件。 谁知道怎么改运行中的程序的托盘图标???我用SysTray.ocx不能改? 0.8吨等于几千克? 在比例尺为1:4000000的地图上A、B两地的距离是5厘米在比例尺为1;4000000的地图上A\、B两地距离5㎝同时从A、B两地相向开出一辆汽车每时行35㎞另一辆汽车每时行45㎞,找这样的速度,两辆车几时才 一根绳子第一次用去20%,第二次又用去余下的20%,两次相差8米,这根绳子原来的长是( )米. 0.01吨等于几千克快来帮帮我 KPa和KN怎么算 气压表上的《kpa》和Lb/in2什么意思,1个2个气压是多少 0.433吨等于几千克? KPa和KN的换算 有一根绳子,第一次剪去全长的20%,第二次比第一次少剪5米,这时还剩53米.这根绳要有解释和算式.谢谢啦! MPa 与 kPa 或 Pa 之间换算? KN换算吨 请教1千帕等于1千克每平方厘米吗?因为胎压表上标的是1kg/cm2,i汽车说明书上标的标准气压是前轮220kpa ,后轮250kpa.我查看胎压表的时候是以前轮2.2,后轮2.5 这种看法正确吗?胎压表外面的数值从0 上帝你在哪里?可是,我看不见你! 用一段话写猫睡觉的样子! 填空 一根绳子第一次用去20%,第二次用余下的20%,两次相差2m.这根绳原来的长( )米.一根绳子第一次用去20%,第二次用余下的20%,两次相差2m.这根绳原来的长( )米. 因为天气不好我们看不见下面的东西 猫怎样睡作文 一根绳子第一次剪去全长的30%第二次剪去余下的20%剪了两次还剩下全长的百分之几 一根10米长的绳子,第一次剪去它的一半,第二次减去剩下的1/3,第三次减去剩下的1/4,如此继续下去,第五次剪后,剩下的绳子长多少米? 配制药水9009千克,如果按1克药粉加8千克水来计算,共需要多少千克药粉? 一根绳子第一次用去了20%,第二次又用去了余下的20%,两次相差2米,这根绳原来的长是多少米? 19.5KN换算成kgf是多少? kPa是什么含义是压强,还是压力 一根绳子第一次用去20%.第二次用去25% 两次相差2米.这根绳原来长多少米 有一个绳子10米长,第一次减去一半,第二次减去剩下的一半,剪7次后,剩下多少米 硬度衡量单位KPa,与压力单位kpa是相同的物理意义吗? 在比例尺为1比6000000的地图上,量得南京到北京的距离是15厘米,南京到北京的实际距离大约是多少千米?南京长江大桥全长6700米,如果画在比例尺是100000分之1的地图上,应画多少厘米? 青海玉数海拔三千米缺氧嘛? 在比例尺是1:4000000的地图上量得甲乙两地之间的距离为20厘米两列火车同时从甲乙两地相对开出,甲每小时行55千米,乙车每小时行45千米,几小时两车相距100千米? 在比例尺1:6000000的地图上,量出南京到北京的直线距离是15厘米.一架飞机以每小时900千米的速度飞往北京,几个小时可到达? 在比例尺是1:6000000的地图上,量得南京到北京的距离是15cm.南京到北京的实际距离大约是多少米? 在比例尺是1:4000000的地图上,量得甲、乙两地相距20厘米,实际多少米? K=A的纸箱耐破数据是35.86kgf 纸皮受力面积是50.0cm2,施压面积是3.0cm2 请问如何转换成 lbs/in2 如果我是要转换成kgf/cm2 是不是:35.86/3=11.95kgf/cm2 小明对小红说能用掉一生三分之一时间的东西是什么 1mm²与m²的换算单位 纸箱抗爆破力150LBS-200LBSLBS是什么意思? 大家都在追求什么?世界上什么东西最值得我们花一生时间去追求呢? mW/cm²怎么换算成W/m² K=K 纸箱耐破强度=150LBS/IN 是否标准太低 正确的耐破强度事多少? 人的一生是短暂的,决不能白白把生命浪费掉 这句话对应的名言是什么? ψm与mm单位之间的换算关系 动物一生都要经历哪些时期 真空能不能以绝对压力(绝压,PSIA)为单位?如果不能,下图标出的部分是什么意思? 十斤铁和十公斤棉花哪个重? 动物的一生都要经历 等生长时期 为这么压力传感器的标称值是psia,而psia是压强单位!我想知道传感器的测量范围这么求! 10斤棉花和10斤铁 哪个重 居然有人说一样重 棉花怎么可能比铁重 没常识 动物一生要经历过哪些变化?可以多选什么都行 畦是什么意思?是个单位吗 十斤棉花,和十斤铁那个要重? 不同动物的一生所经历的生命周期一样吗?急 第一次准备去海拔5000米的高原地区,都要注意哪些问题?三月中旬就出发,而且现在还有点感冒! 10斤棉花和10斤铁哪个重? 动物的一生都要经历( )、()、()、( )等生长时期.这些生长时期构成了动物的( )动物的一生都要经历( )、( )、( )、( )等生长时期.这些生长时期构成了动物的( ) 浪费掉人生三分之一时间的会是什么东西? 10公斤棉花和10斤铁哪个重?我就被难住了 5公斤等于多少毫升 在比例尺是4000000分之1的地图上,量的甲乙两地的距离是15cm,一辆汽车以每小时60千米的速度从甲乙两地开要几小时(用比例) 在比例尺是1:4000000的地图上,量得A,B两地的距离是20厘米.在比例尺是1:4000000的地图上,量得A,B两地的距离是20厘米.一辆汽车以每小时80千米的速度从A地到B地,几小时可以到达? 0.5公斤到底等于多少克啊
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn