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

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

Facebook开源MySQL分支,谷歌、LinkedIn、Twitter等大拿捧场 淘宝明风:基于Graphx的图计算实践分享 调查显示:2015年Android将统治全球操作系统 初创公司最爱使用的那些开发工具 仙剑之父姚壮宪强势加盟Unity游戏及应用大赛 智能可视化平台:DCOS之数据中心抽象 一周热点:5美分/GB的开源存储系统,及硬盘质量“最差”的希捷 英特尔收购可穿戴技术公司BASIS Science 设计移动App的十大技巧 皮皮网陈超:易用与性能兼备,Spark蓬勃发展! Sahara顺利毕业,将加速OpenStack与Hadoop的融合 十大将拯救地球的开源硬件项目 Android应用程序开发者需要了解的五个内容 百度轻应用插件CloudaMySQL诞生记 盘点Github所用的开源项目 开源不只是面对开发者 见证新一代全能大数据计算平台崛起 ——中国Spark技术峰会将于4月19日在北京召开 大佬放猛料的节奏 阿里云聚无线为开发者提供一站式服务 智能硬件又添新选手 汉王推出便携PM2.5检测仪 2014年首场百度轻应用高级训练营落幕 现场展示云端结合能力 销售易史彦泽:企业应用,自上而下的革命 专访寻医问药网创始人:轻应用背后的长尾效应 轻松打造品牌轻应用:实时Web App开发框架Clouda Intel强势入驻,Cloudera新一轮融资总额已达9亿美元 每个Web开发者必备的9个软技能 4月1日:闻名世界的苹果公司正式成立 AMD正在探索一种新颖的Linux开源驱动模式 QQ手机浏览器推出5.1播霸版 内置强解码引擎支持22种视频格式 Ceph浅析(上):概况与设计思想 IBM:你好,互联网 光网络SDN化的四大驱动力及两条路径 ★★请教新闻发布系统的图文混排问题 在建立vc 工程的时候选择了生成hlp 文件。我把我的工程放到别的机器上的时候有如下的错误 这句SQL应该如何写? 怎样在VC里面开发手机上程序?需要装什么软件? 请教:这个onLoad事件怎么不起反应 关于web services,大哥麻烦帮助小妹吧! 我现在神思恍惚,无心工作,天天上网灌水打发时间,大家估计我多久会失业? 使能工具栏的某项 网络下载编程求助(紧急求助) 如何判断一个字符串中是否含有某一字符? 如何在网络断开的情况下判断,等网络恢复后再自动连接??? 如何在comboBox中添加icon--在线= 救人啦!!请教BootCode方面的问题,十万火急!! 一个关于 WISE installation 制作安装程序的问题 *.lwp的文件怎么打开亚?请大家帮帮忙!!! DataGrid为何不显示? CRegKey::QueryValue()读取数值数据时遇到的问题…… chmod命令后造成启动错误 请教大家一个关于webservice transaction的实例 菜鸟急救,注册表文件导入的问题? 填空题(急) 钱本草呢? 关于手机的问题 求救:GetFieldValue()函数出错. 一个很简单的问题,来者有分 有个小问题请大家诊下 怎么样使stringgrid中的fixrows和rowcount数目一致? 如何在JB中联接SQL数据库! 把数据结构(比如说一个链表里的数据)保存为文件,不用序列化怎么办啊? 哪位大哥有installshield的安装password? 日期型中的“年”,如何取得? SOS!!!! COPY文件有哪些办法?用什么方法比较好? 友元函数重载操作符@obj,被c++编译器编译后被解释 对vcl库底层机制一些不明白的地方2 存储图片为什么不行? 真的很苦恼,如何同时更新两个文件? 数据库问题,大家帮帮忙啊 asp.net连接sqlserver 关于在同一asp页中的两个select的问题 如何写这种存贮过程?(急) 哪儿有asp的帮助下载! 关于数据库连接方法的问题! -----------产生错误:线程正被中止。--------------- 我刚刚学了C#,但是不知道自己的程度 如何在点击Memo时取得当前行的值? midas的一些问题! EditPlus 2中如何实现对java编译和调试?立刻给分 为什么在 CHtmlDialog 中映射的html button click 的事件会促发两次? 广州一戒毒所将数十戒毒女卖给“鸡头” 菜鸟级问题。看到有很多视图的列有带链接的。不知道怎么做。怎么看链接 36V 40W和220V 40W正常发光时,那个亮 蛋白质的分选途径?各种生物膜系统是怎样合作完成 蛋白质的组装,分选的呢? 满井游记中“凡曝沙之鸟···皆有喜气”这句话可看出作者冒寒出游有怎样的感受完整句子是 “凡曝 沙之鸟,呷浪之鳞,悠然自得,毛羽鳞鬣 之间皆有喜气.” 陈二狗的妖孽人生陈二狗写的那句话‘我心中有猛虎,额 蛋白质分选的主要三种途径 满井游记中 本文的主旨是哪一句?找出来并说说它表现了作者怎样的心情及其包含的哲 陈二狗的妖孽人生当中,有句 龙虎共、应声裂出自哪里谁知道 用过集成水槽的朋友来看下:上面带的小厨宝为什么不能保温,一直加热到跳闸位置,好耗电啊! 能否将雷电转为生活用电我最近要写一些与之相关的论文《因为我是学防雷的》请高手回答,介绍有关方面的书籍也行! 用绳子系住木桶,手拉绳子从井中提水,手受到竖直下降的拉力,则拉力的施力物体是什么/ 我要设计个盘管水槽,不知道加热器是不是就放在盘管水槽里的?温度是用什么控制的? 标准质量摩尔浓度的单位为什么不符合国际单位要求?为什么是摩尔每千克,而不是摩尔每克? 打雷时玩手机,连着无线网,危险会通过无线传播吗? 厨卫宝食物垃圾处理器挂在水槽上会不会太重损坏水槽啊? 冒着生命危险做某事 用英语怎么说? 如图所示,已知DE//AC,∠FDC=∠B,试说明∠A=∠EDF的理由越快越好!数学走进新课程的第61页的第三大题第七小题 在使用超声波雾化器过程中,水槽内蒸馏水的温度不超过 60℃ 还是50℃啊看了书上有的是50有的是60,搞的我都知道到底是多少 “她被困在燃烧着的房子里了,是一个消防员冒着生命危险把她救出来的.(trap)英文翻译? 如图,已知DE//AC,角FDC=角B.试说明角A=角EDF的理由 海里面有些什么动物 他冒着生命危险救了我 英语 如图,已知ED‖AC,∠FDC=∠B,求出与∠A相等的角,并说明理由.(图在下面.) 一个长方体的水槽,从里面量长是六分米,宽是四分米,高是五分米,现在往水槽内注入96升水,水面离水槽口有多少分米?回答了立即给好评! “冒着生命危险保护同伴”英语怎么说 把图①中的△EDF绕点D逆时针旋转,DE,DF分别交AC于点M,K(如图②),当∠FDC=30°时,△ADM与△CDK全等吗? 咖啡厅设计说明范文 翻译:他冒着生命危险救了这个孩子. 如图,已知∠A=∠EDF,ED//AC,求证:∠FDC=∠B 水文水利计算和工程水文学是一本书吗 水仙的水水仙花瓶里的水有什么变化?快,要简洁! 求发《陈二狗的妖孽人生》只要烽火写的第一部,希望不要有漏章节的, 什么是工程水文学?急1! 水仙要多少水?我家水仙一个已经有16cm了,没有脚芽.还有一个才8cm,而且脚芽长2cm,我应该放多少水? 废话别太多,一个数字就行了. 打雷无线网要关吗 谈谈您对《工程水文学》这门课程的得失和建议 雷电可以用来发电吗? 《受宠的象》续写 抛物线y=ax2+bx+c向左平移n个单位 向右 以及关于x轴对称的抛物线解析式是? 雷电能利用起来 最好像发电站里发出来的电一样 《受宠的象》文中描写了4只动物的对话,如果大象知道了,会有怎样的反应? .水文里的水深和水位这两个概念如何区分? 富兰克林用什么做实验证明了天然雷电的电和人工发电的电是一样的? [急】受宠的象续写, 盐pH值可以小于7大于7等于7 肌细胞吸收蛋白质为什么为主动运输 已知角一等于45度,角二等于135度,直线a与b平行吗?为什么? 什么是:维护水深?跟水位有什么关系?比如说长江的水深和水位. 离子进出细胞都是通过主动运输吗 如图,已知 将下面的句子翻译成维语:高压危险 禁止攀登 有两个问题:1、Na+进出细胞分别是协助扩散和主动运输,需要的载体蛋白是不是一样的啊?2、那些离子跨膜运输是协助扩散,那些是主动运输啊? 栖霞苹果有70、75、80的,都是怎么分的? 化学中怎么分PH大于还是小于或等于的?必须用石蕊吗?还有其他办法吗 离子进出细胞必须是主动运输么 KMNO4,(NH4)SO4中所含的营养元素是 细胞内蛋白质的分选运输途径主要有那些? 图中的ph值等于7.6是怎么求得的? 打雷要关无线网络吗 《别饿坏了那匹马》阅读理解1.“他先是一愣,继而眼前一亮” ,轮椅上的青年为什么 “一愣”,又为什么“眼前一亮“?2.文中守书摊的人是一个怎样的人? 天气那么暖和,那么晴朗!这句话在文中有什么作用?第七课 德媒称北京上海等城市被美列入监听 韩莫言出任网络文学大学名誉校长 曾决心北京最牛违建拆除停近1月 同楼居民纷李某某再换律师二审推迟 新律师称重新中国全票连任联合国经社理事会成员德国法兰克福股市DAX指数30日下跌伦敦股市股指30日上涨突尼斯旅游城市发生自杀式爆炸袭击电视购物广告不允许\"叫卖式\"宣传中国成功连任联合国经社理事会成员法国巴黎CAC40股指下跌成品油调价窗口今日开启 机构预测每升国内成品油价今迎调价窗口 “两连跌”美国私营部门新增就业岗位创6个月新低陕西“房姐”案今日二审宣判 一审未提李某某强奸案二审延期 张起淮承认担任杨澜提问朗朗\"工作有何意义\"惹争俄达吉斯坦共和国首府发生爆炸袭击俄罗斯将提高远东石油管道输油能力巴基斯坦奎达发生爆炸4人死亡土耳其总理要求国际社会帮助解决叙利亚今年上半年销售1028亿暴恐分子欲炸石家庄商场被抓 称希望被3大方法去除疤痕票务销售开启金胆14银胆22强加兴趣国家统计局:上半年就业形势稳定恒大续约张琳芃下一篇票务销售开启冥王星心形阴影印度泼猴洗劫游客十多万卢比有披肩的雏菊失踪的柯文婷不是华师学生工地负责人已被控制约20亿欧元逾期贷款小散惊魂未定 营业部门前冷清唐韦星夺得冠军首批4架F-16战机沉心回望 重新探索中国汤唯廖凡《命中注定》免费抢票
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘