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

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中调试通过。

试图领导创新:三星创新中心11亿美元建基金 基于WebRTC Chrome与Firefox实现视频通话 将OpenStack私有云部署到Hadoop MapReduce环境 Web设计师必备的10款最佳排版工具 诺基亚CEO谈平板计划 Android为候选系统 244亿美元!戴尔公司正式完成私有化 对抗苹果 Facebook或推Find My Friends应用 前谷歌工程团队负责人:如何打造一个完美的产品 好消息!Google Drive可存储共享JavaScript等网站 Android Rivers:用Kotlin语言写出的新闻应用 辞旧迎新 老牌游戏开发商的移动进化之路 iSuppli:硬盘市场持续萎缩 大数据应用成重要市场 全球最大校园Hackathon:失败后,你能学到什么? 走进Evasi0n,越狱黑客如何拿到iOS权限 提升服务扩展性和冗余的八个编码方向 分析数据预测未来?数据挖掘绝不是大公司的专利 揭秘LinkedIn数据科学家如何工作 为什么响应式设计对SEO有好处? SpaceX团队:想登陆火星吗?学好C++吧 可穿戴设备:越来越清晰的苹果iWatch 苹果设计师:开发者们的应用图标设计对了吗? AWS兴起之路:尚未成功 仍需努力 John Carmack:我们为什么不开发Linux游戏 最具创新力公司50强:耐克居首 Web如何成为另一个应用商店 Adobe发布Photoshop1.0.1源代码 大数据时代正在到来 微软CFO:我们的移动战略没有“B计划” TIOBE 2013年2月编程语言排行榜:历经十月Java重返第一 为让用户亲身体验产品 谷歌年底或开零售商店 谷歌推Chrome API支持HTML5实现本地离线数据存储与同步 安装SQL时没有选择默认,而是自己新建一个实例,这样如何实现远程代码连接?? 急问Flash conning333(chen)来接分 webapps\ROOT\WEB-INF\web.xml的配置问题 如何清除WEBSPHERE的缓存?一个JSP文件总是无法更新,我重启WEBSPHERE也好,修改该JSP并重新保存也好,都是显示旧页面,真气人! 源代码分析 怎样在DW中制作垂直的线条????急 ! 急!在线等待!!!! 关于dir()的小问题, 这个问题已困惑我几天啦,均没人帮我解决真的好盼望呀 急问FLash 高分求教:一个DataGrid显示双DataTable!走过路过都有份! 怎样代码控制servers中excel的合并单元格?? google能找到我了,散分咯 急问Flash. ADOCE怎样访问excel数据表格? 请 ccmoon(IzuaL) 和 cloudchen(陈系上) 进来领分, 我该怎么做? 关于将输入字母转换为大写的问题! 谁给我解释这个sql语句! 怎么将sql server 6.x 的备份文件,恢复到sql server 7上 请教pb中有没有模式窗口和非模式窗口的概念?? 设备内容句柄在Delphi中有这个类吗?如何表示? hxzhappy(冰雨)快来接分 请问在contexMenu控件中show方法如何写 请问用VC,如何在WIN2000下连接一个SQL数据源? 入参与出参 关于国外发布的软件,可以使注册用户在线或取注册码! win2000下怎样建立代理服务器 有关DBGrid的问题。 在其他版看到一个很有意思的贴子“如果是你招聘人,你会不会招和自己技术,资历差不多的,甚至超过自己水平的?”欢迎大家讨论。 急!关于innerhtml的错误? hxzhappy(冰雨)快来接分 在线求助,急 请教各位,我的sybase的数据库的log设备(即syslogs表)最近增长很快,每天增长40多兆,如何解决??? 想做一个网络代理上网 c语言中三维数组的问题??? 求助:word文件加密后忘记密码如何打开原文件? 请教 : photoshop 中--highlight shadow midtone 提问,非高手勿入,打印的问题,100分,不够另加 关于oracle预留字作字段名的问题。 ● 求助,2000 Professional一登录就自动注销,怎么解决? 一个很棘手的问题? 谁给我解释这个JS函数 請高手幫改寫一段datagrid程序. (100分相送) (2)菜鸟问题!!容易拿分呀!! 如何在SQL SERVER上实现ORACLE中的package的功能 对windows编程,如何控制鼠标箭头阿 在2000下,希望不同的账号登陆,文件的可见属性不一样,能做到吗? 页面元素隐藏的问题 急 读文本出现乱码??? 高分求演示制作软件一个,以前知道lotus123可以做,可是找不到下载!!! 木星在夜晚可观测时,逆行前会不会发生西方照?为什么? 诉讼代理人和辩护人具体区别在哪呢? 水泥试块标养温度是多少如果知道湿度也说一下, 酒精喷灯危险吗?使用不当会爆炸吗?同上 孙权有写过哪些诗词吗?是不是接下来还有“再有言者,有如此案”.如果我没记错的话. 两首词都引用有关孙权的典故试分析它们不同的表达作用 辛弃疾的一句词,表达了对王国吴主孙权的赞扬,是哪句?如题. 古代消失的两栖动物有哪些? 保护 英文怎么写 木星为什么会逆行以及逆行的规律是怎样的? 哪些字和词可以看出孙权两次劝吕蒙 以色列军队炮击加沙打死一名巴勒斯坦人壮美!摄影师抓拍冰冻海浪翻滚瞬间【高英汇丰银行报告:中国成为2013年度港媒:中国小偷泰国免税店内行窃后坐飞娜塔莉·波特曼:参演《雷神》,主要是奥巴马豪华座驾“野兽”细节曝光美国务卿将访欧洲中东八国 重申与沙特美空管局解除禁令 飞行全程可使用电子美国空军证实一架“捕食者”无人机坠毁美国务卿将访欧洲中东八国 重申与沙特简化赴英签证手续今日实施老公和别的女人一夜未归,少妇在微信上Love\\\'s Philosop功能不少逐个研究 奇酷旗舰版开箱体验魔都350辆电动汽车,分时租赁正式运适合自己,就是幸福多图|在纽约逛农夫市集,是最开心的事建材市场出货缓慢 短期内建材价格将持为什么换季总是没衣服穿?你一定不知道33位总裁班学员委托炒股 1亿本金仅63平米的简约北欧风loft两居室当女人脱光了,还剩下什么!(非常经典
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘