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

Delphi中RichEdit的奥妙

HTML文档下载 WORD文档下载 PDF文档下载
Delphi中RichEdit的奥妙

一、如何得知当前行号   

用RichEdit(或者memo)控件制作文本编辑器时,通过访问lines?count属性可以得到总行数,但是若想知道光标当前所在行的行号就麻烦了,因为delphi没有提供这个属性。要实现这个编辑器必备功能,就须调用em_ LineFromChar。

请试试下面的程序。

先在窗口中布置一个RichEdit或者memo(命名为editor),以及一个button。在button的onclick事件中写入下列代码。

var

CurrentLine:Integer;

begin

CurrentLine:=Editor?

Perform(em_ LineFromChar

SFFFF

0);   

Application?MessageBox(PChar(′当前行号是′+IntToStr(CurrentLine))

′消息′

mb_ iconinformation);   

end;

需要注意的是,第一行的行号为零。

二、如何撤消操作(undo)

对于memo来说,实现undo是不需编程的,只要让popupmenu属性为空,运行时就能用鼠标右键激活一个常用操作菜单,其中包括撤消、剪切、复制、粘贴、删除和全选六项。   但可惜的是,这一招对于功能强大的RichEdit控件居然行不通,害得我们还要自己设计一个popupmemu。当你用CutToClipBoard等语句轻松而顺利地完成了“剪切”等功能,接着便会无奈地发现,竟找不到undo或cancel之类的语句来执行“撤消”。   这时你需要这样处理:

RichEdit1?Perform(EM_UNDO

0

0);

另外还应检查是否允许撤消,从而开启或关闭弹出菜单中的“撤消”项:

Undo1?Enabled:=RichEdit?

Perform(EM_CANUNDO

0

0)<>0;   

以上程序在Delphi3中调试通过。

CCAI2015:首届中国人工智能大会将于7月26-27日在京举行 拥抱互联网+ 用友NC6助力集团企业蜕变数据驱动型公司 《近匠》融云,自主研发真正“不丢消息”的IM云服务 【CTO讲堂】听云CTO Wood:APM实现原理及对IT和产品运营的价值 从7个维度浅析虚拟现实Alpha年 Maker Faire上的微软:将技术与工具带给Maker才是关键 友盟2015年Q1移动互联网报告:车联网App崛起 多面编程语言Scala NEC高可用集群软件EXPRESSCLUSTER X3.3面向中国市场正式发布 【探秘ES6】系列专栏:模版字符串 专访图书作者祁宇:C++11让程序更简洁、更现代、更强大 滴滴打车CTO张博:生死战役,技术和时间赛跑 Qualcomm拥抱创客文化:如何基于DragonBoard 410c创造和创业? 【探秘ES6】系列专栏:剩余参数和默认参数 专访资深程序员庄晓立:我为什么要选择Rust? 主会讲师确认,2015中国人工智能大会火热报名中 容联·云通讯线下沙龙:IM 5.0助力App社交化 【CTO讲堂】全数据驱动产品优化,美国互联网公司A/B测试经验分享 《近匠》易快报:以报销做企业消费场景下的Slack 纷享销客D轮融资1亿美金,启动开放平台战略! 专访4秒源码商城CTO陈杰:扎根互联网的“不安的心” iOS UIView动画实践(一):揭开Animation的神秘面纱 【前端人生】Teambition前端工程师陈涌:非计算机专业,依托社区不断成长壮大 iOS UIView动画实践(二):Spring Animation与人机交互 基因组与数据整合:DNA应用开发正在临近 2015 PHP框架调查结果出炉,Laravel最受欢迎! 【CTO会员专访】KEEN创始人兼CEO王琦:在GeekPwn,遇见一极棒的安全人才 创业公司都在使用的3款Python库 深入理解Objective-C的Runtime机制 你不知的Docker 创办人兼CTO游走美法的浪漫狂放 《近匠》环信CEO刘俊彦:移动客服的未来化场景 软件发布:RegTool注册控件组 软件发布:Windows变脸王 软件发布:FIFA2002视频设置 软件发布:Flash播放器 我写好了一个applet画板程序,愿和大家交流,分享原码,并一同解决余下问题。 请问在BCB中怎样实现动态数组??? Window2000+Apache+Tomcat4.0下class文件放哪里呀?自己建新的目录,怎么建? 请问在win98中的sql server数据库如何导入winnt下sql server服务器中。 济南 应用程序端传递过来的参数不能在导出函数外用吗? BCB 用Install shield制作oracle数据安装程序,在客户端不装ORACLE,如何设置DBE? to:chechy 分来了! 请问哪里有 com本质论 下载啊,最好是中文版的,英文亦可 为什么我的程序在案康柏的ipad上不能使用? 如何在image里预先显示白色背景? 回复phoenix96_2000(Jack Of All Trades) 请问哪里有《Delphi5企业级解决方案及应用剖析》配套光盘源码下载? hehe...请问能不能在WIN2000P建域呢?? 在对话框中放一个静态文本,为何执行时看不到该文本? 哪里有Inside COM+的书籍下载? 请教各位:如何对zf='dd'转换成十六进制? 请教: 二级域名name.***.com是怎么实现的? vc中使用string类型的问题 肮脏的九运会,肮脏的广州!建议以后取消全运会!! 我做了一个OCX控件,里面有个属性SName,我现在想在属性窗口里改了它的值,马上可以在控件上改变,请教各位! 为什么我的USB接口键盘在用软盘启动后的DOS状态下不响应? JSP,薪水有多少? delphi中怎样调用package? ado 的问题 图片从数据能显示,图片名称不能显示? 请问unix下有没有类似于windows下的DLL的二进制代码存储文件机制?(当然不是javaBean) 关于语音控件CTTS1.0? 请教各位:问如何对变量zz='02'转换成16进制? flash 5。0哪里有下载 在vc中调用用vb写的com出错,为什么? 关于多态性的理解,对吗? 如何知道1个类是不是存在? ??请教:我的程序 help!help! 如何对程序执行动作放缓慢! 很小很小的问题!! 棘手问题??急急!!! 各位懂软件测试的朋友,请介绍一些资料给我,非常感谢! 菜鸟问个调试问题,别见笑! 请介绍一下学数据库应学什么开发工具更好些,除了sql语言? 请教一个关于TextArea区域中数据显示的问题 高分求以二进制方式打开文件 哪里能找到dialogic卡的VN协议? 求解:BC++3.1 or high编程在DOS下连接interbase server 高手快进!!!一个DataReport报表的异步操作问题( 请围绕“感悟自然”这个话题,自选角度,写一篇文章,题目自拟,文体不限,不少于600字450字就够了 我常常想起这件事作文 300字!急啊!1答对了先赏5分 高中生活作文800字急 杭州西湖作文400字 周口淮阳的龙湖和东湖哪一个的荷花好看呢?都要门票吗? 高中生活作文800字以上.不要太幼稚的,记录一件有意义的事! 描写西湖荷花的作文题目 小学四年级我的国庆长假作文300字 高中生活的作文十万火急! 改革开放30年作文在400字以上 我需要一篇作文是自选角度,自拟题目一篇不少于600字的文章?一天,一个青年农民拖着沉甸甸的板车疲惫的来到了山脚下。望着前面那一段长长的上坡路,不禁畏而却步。他心想,今天靠自 成长的烦恼400字作文(6年纪的 关于革命电影的400字作文是关于革命电影的400字作文 请以“感谢”为话题,自选角度,写一篇文章.(要写人的作文)在线等~ 关于在学校使用手机的调查 英语作文比如%多少的人带、%多少的人不带,这种的作文.30-40词.答得好有额外分. 关于辛亥革命的作文400字的!老师让我们写有关辛亥革命的作文哎!急 我的探索 作文500 英语作文:关于中学生使用手机1、现在是信息社会,手机是最快的信息交流的工具之一.2、应充分利用好手机.如遇突发事故,可立即拨打手机求助.3、可在每天学习之余利用手机游戏放松一下 400字左右的作文主要写心中的革命英雄一定要快! 四年级作文500字SD速度今天内 如何正确使用手机英语作文 关于精彩生活快乐成长的初中作文800字 2000字,主题不限 英语作文:使用手机的一个小故事60字以上 一篇初中作文写成长的快乐500字 谢谢要快乐的 有实感的 求一篇政治论文(2000字)求一篇2000字的论文 关于食品安全 或者 台湾方面的 (二选一)要求为:②为什么存在着这些问题③如何解决这些问题④解决这些问题有什么意义(道理) 中华儿女报效祖国为国争光的读后感 急,写荷花的作文(300字左右) 初中作文——成长的快乐(烦恼) 请以‘让’为话题,自选角度,写一篇不少于500字的作文,要求;题目自拟,内容充实,切忌空洞车让人,让出一份安全;车让车,让出一份秩序,让出一份文明;人让人,让出一份友爱.在现实生活中, 要300字荷花的作文 成长的烦恼与欢乐初中作文600字 要求:请自选角度,写一篇不少于500字的作文有个木匠准备离开,他告诉老板,要回家与妻儿父母一起享受天伦之乐.老板舍不得他的好工人走,问他是否能帮忙再建一座房子,木匠说可以.但是大家 成长的足迹作文500~550字..答得好再加分。。 好人好事作文600字600字好人好事作文最好是关于道德的 关于荷花的作文(600字以上) 急求关于成长的快乐的作文一篇550字 我心中的红色偶像作文一个人就行。200字.不是比尔·盖茨 荷花作文600字!急!~~~~ 作文《长大以后》550字快,急用! 关于 传承红色精神 的作文大概是关于革命的 关于赞美荷花的作文600字! 我长大了作文550字速度啊 好了给10分 《奥运精神在我心》求文章我要关于奥运精神在我心的作文 荷花作文600字注意着重写景 有关红色革命的作文?有关红色革命的作文800字,(要求:有题目,内容有条理).急求啊!!(比如:什么是革命,怎么理解革命?) 描写荷花的段落 以荷花为题的600字作文 红色校园作文怎么写 求描写荷花的片段不要给我荷塘月色的片段的 我要别的 演讲稿或者中华儿女报效祖国、为国争光的文章或书籍写一篇读后感 至少500字 好人好事的征文,1000字要好人好事的! 描写荷花的文章夏日的池塘里,荷花盛开,引来了许多人来观光,有人说:“荷花开得真美,只可惜他生长在淤泥里.”荷花姐妹听了这话,商量道:“我们不能都跟着淤泥背黑锅,得离他远点.”于 作文:我向往的高中生活 要求好人好事作文 1000字 急我们身边的雷锋事迹 描写荷花的作文要求是篇文艺性说明文要有荷花的主产区 荷花的种植优点 荷花的外形 荷花的品种与其中一种的详细特点 荷花的食用和药用价值 进入高一体验高中生活,作文该怎么写. 围绕“感悟自然”这个话题.自选角度,写一篇文章,文体不限.300-400字. 关于科学实验的作文500字左右苏教版6年级下册 以“风波”为题的作文,写高中生活的(800).
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn