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

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

[探讨]如何成为有代码洁癖的程序员? 消灭Bug!十款免费移动应用测试框架推荐 协同软件供应商Atlassian推出JIRA服务台 振奋人心!iOS和Android版BBM应用首日下载量冲破1000万次 十款开源的数据库管理工具 360联合多家IDC成立“安全防黑联盟” 国内百万网站受益 腾讯云如何玩转手游数据分析 成都站免费抢票 直接拿来用!10款实用Android UI工具 第14届英特尔投资全球峰会 新投16个项目逐一看 2013中国Linux内核开发者大会亮点汇总 UnitedStack:用社区的方式做IT 手游狂潮:小团队如何提高游戏数据化运营效率? 2012年全美CEO收入榜:扎克伯格第一、库克第五、Marc Benioff第九 专访:InMobi全球CEO Naveen Tewari MDCC 2013精彩专题论坛之产品与设计 中关村大型IT人才招聘会举办 现场火爆 [简讯]新代码编辑器Lime发布 号称Sublime Text的开源实现 从真实案例出发:如何在协作开发中避免误解! Google工程师谈程序员的自我修养 依然很强大:微软第一财季净利润同比增17% MDCC 2013垂直行业应用与O2O专题论坛透露劲爆话题 专访豌豆荚产品设计团队:Design Hackathon是绞尽脑汁之后的海阔天空 首日报名爆满超300 向C++大师Lippman提问征集 做华为合伙人:华为开发者联盟沙龙(北京站)即将开幕 Windows XP发行12周年 我仍年轻而你已垂暮 2013浏览器市场份额:Chrome领衔,Firefox、IE相去甚远 人人网陈弢:从RecSys2013看大数据和移动给推荐系统带来的挑战 继续紧逼Oracle:在占领谷歌等公司之后,MariaDB迈向企业端 移动周报:十款最实用的Android UI设计工具 阿里巴巴CTO王坚:开发者精神是云计算与移动互联网的“信仰” 黑客老鹰:安全软件同样需要用户体验 请问这个论坛的 CSDN论坛助手.Net(0.21)哪里有下载? 新手提问:关于使用CSocket,为什么我跟服务器建立连接后马上就断开呢 ★★请教AVI文件的API函数★★(关于将位图存成avi时写入的一点问题:急问)(150) 求救!救急!各位仁兄帮帮忙!! 【急】如何处理一组RadioButtonList呢? 签名活动:目前csdn里面发现很多作弊者,反对作弊者进来签名! 哪有中文MSDN下载?先谢谢 请帮忙看一下这个setfilter应怎样写? (这个问题,不会没有人不知道!)关于vfp6统计图的问题`~急呀`~救命呀`~~~回答者都给分`~~ 打印预览窗口的显示问题 vb中的trim在c# 中如何表达 数据库 我为中国队加油,看看我的为中国队加油首页! 关于FLASH的??<在线等待> 请教各位大虾!!!急,我的分数全部送出!!! 高手们怎么样才能在窗体上引入FLASH动画呀????? 好烦啊!oracle 7.3.4数据导到oracle9i的字符集问题 每当我最困难的时候,我就想起了csdn,50分奉送!!!!!图像问题 QuickReport设置的问题 如何打印源代码! 那位大虾知道ACTIVEX命名的由来 请问什么错误,在brinkster测试通过,但是放在另外的站点,却不行了。 中国必胜 mfc 中的类型是怎么定义出来的(比如 dword,LPTSTR 等) 救急!!关于表单中文件域的使用。 奇怪的问题!!!!! 请问什么是contentPane? 用Delphi作网页用IE浏览不行 求助:AfxBeginThread的编译问题! 用C裸写聊天软件,谁能? 菜鸟问题:如何安装和配置ASP.NET开发和运行环境? 快来呀,破解QQ密码,高分相送! 有需要域名和空间的吗?我这里有。 我的服务器CPU占有100%,如何解决?!!加急!!!!!! 请问谁在csdn上订购过书啊?需要多少时间才能拿到啊!!!! 小问题:关于AfxBeginThread的参数调用问题 请教高手:关于在ACCESS中的两个数据库之间复制表结构问题 请问谁在csdn上订购过书啊?需要多少时间才能拿到啊!!!! 问题求解 现实一点,各位,我和别人赌了巴西不能赢中国队净3球以上,大家如何看? datagrid连接adodc access转化为mssql时出现的一些问题??? 工作流运行时出现了问题!很奇怪! 一个注册表的问题? 关于STL的弱问题 很少有人问的问题 请教学习路线,散分 一个困扰我很久的难题?(高手帮忙啊) 告诉帮我解决文件关联问题!! 请问如何添加备注字段,用sql server建表,有一备注字段为text类型。。。。。。。。。。。 函數啊﹐怎么么搞的?氣死人了。一百求救。 【求助】请问活性炭能吸附一氧化碳吗? 为什么铵根离子可以与碳酸根离子、碳酸氢根离子在溶液中大量共存?不是会发生双水解吗? 如何配平氧化亚铜与氧气在加热条件下反应生成氧化铜 一氧化碳相对分子质量28,氧气相对分子质量32.为什么活性炭吸附较小的一氧化碳 铵根离子能与碳酸根、碳酸氢根共存因为双水解不彻底,怎样才能叫双水解彻底不共存铵根离子能与碳酸根、碳酸氢根按讲可以产生气体,难道说只有产生沉淀的双水解才叫完全,才叫不共存吗? H2O和Na2O2反应,为什么转移2e-个电子 地震感受你对地震的人想说什么》》?你对地震有啥感受 为什么氢氧化铝只与强酸强碱反应不与弱酸弱碱反应?我同学说是氢氧化铝和弱酸弱碱反应的话,生成的盐也会马上双水解,是这样吗,不要复制黏贴那些不搭边的东西, 电流的磁效应 电生磁 磁生电 磁体在磁场受力的作用的区分 地震的感悟请问大家都是怎么看这次地震的?我自己认为,这次地震的确给许多人带来了不幸,他们都很坚强勇毅,但同时我也觉得:也许,我的想法有些过头.我在这里先声明.人类自从远古时期, 请问铝,氧化铝,氢氧化铝的两性是对于只能和强酸强碱反应来说的吗?铝,氧化铝,氢氧化铝的两性是对于只能和强酸强碱反应来说的吗?(1)铝能和所有酸包括弱酸反应生成H2. 铝只能和强碱 常见的强酸弱酸与强碱弱碱有哪些? 氨根离子与醋酸根离子、碳酸根离子,镁离子与碳酸氢根离子等组合中,这两组能水解且水解相互促进什么意思但为什么在加热条件下就不能 还有 水解相互促进什么意思 求化学帝解释下. 铝,氧化铝,氢氧化铝只和强酸反应是不是呢?rt.最好有方程式. 怎么区分电流磁效应,电磁感应,电生磁,磁生电,通电线圈受力作用的这些实验啊 PH=3的硫酸与PH=3的醋酸混合后的PH值是小于3还是等于3 是氧化铝只与强酸和强碱反应还是氢氧化铝只与强酸强碱反应啊? 电生磁就是电流的磁效应就是奥斯特实验吗 碳酸根、碳酸氢根、醋酸根都与氨根共存?为什么 闭合线圈上方有一竖直放置的条形磁铁,线圈电流向右,磁铁N极朝下,...闭合线圈上方有一竖直放置的条形磁铁,线圈电流向右,磁铁N极朝下,当磁铁向下运动时,未达底部,则A,线圈中感应电流的方 为什么电解水后生成气体的比是体积比2:1?为什么是体积比?而不是质量比.等 其他的是不是所有原子的体积都一样? 碳酸根,碳酸氢根和醋酸根水解时的强弱如何判断 条形磁铁穿过螺旋线圈(像弹簧),并且线圈相对于磁铁无线长,线圈是否会有电流. 电解水实验中气体体积比大于2:1的两个原因两个原因,简短点 酸雨 土地盐碱化好久不学化学,可能概念有些模糊.经常下酸雨的地方会出现土地盐碱化吗?土地盐碱化的地方下酸雨会有改善吗? 为什么CO2和苯酚钠的浓溶液反应 电解水试验中气体体积比常大于2:1,可能原因是 铝和氧气发生化合反应的化学方程式是什么 这个你知道吗? 苯与液溴反应,稀苯酚溶液与浓溴水反应;区别? 电解水产生的气体体积为什么为2比1 为什么铵根离子和醋酸根离子不发生双水解?如题 醋酸铵会双水解,为什么醋酸根与铵根可以共存ghx0305172那铵根还是变成一水和氨,不就不能共存了 原始大气成分与现代大气相同.这句话对吗?这是我看到中考考试要求里的一道题才有的疑问。下面是原题及讲解。13、下列关于生命起源和生物进化的叙述中,错误的是………………………… 为什么持续光照8小时后,下图几个装置中A的Ph值最接近7? 醋酸根离子与铵根离子为什么在溶液中能大量共存? 地质学表明,原始大气成分于现在大气相比的的明显差别是什么?A,氧气B,氢气C,水蒸气D,甲烷 甲醛是水溶性的,如何将室内甲醛溶到水中? 铵根和醋酸根可以双水解吗? t摄氏度时,将一定量的KNO3的不饱和溶液平均分为三份,分别恒温蒸发出水的质量为5g、10gt摄氏度时,将一定量的KNO3的不饱和溶液平均分为三份,分别恒温蒸发出水的质量为5g、10g、15g,析出KNO3晶 碳酸镁溶于甲醛吗? 锌铜原电池,稀硫酸作电解质,铜片的质量是逐渐减少吗 氢离子和钾离子氯离子铝离子亚硫酸根离子的混合溶液为什么不共存? 向铜和浓硫酸反应后的液体中逐滴加入含amolNaOH的溶液 恰好使溶液的PH=7 则下列叙述正确的是.A.溶液中的c(Na+)=2c(SO4-)B.a/2 >沉淀的物质的量>0C.沉淀的物质的量=a/2D.原溶液中的H2SO4的物 磁单极子从上往下穿过超导线圈的过程中,线圈内产生不断增强的电流.请问为什么?磁单极子穿过线圈进入到线圈下方时磁感线不是向上透过线圈了吗 为什么电解水刚开始时气体体积之比不是2: 下列各组物质能在PH=1的溶液中大量共存,且得到无色透明液体的是(选项在补充说明里)A.BaCl2,NaNO3,KOH,MgCl2.B.Cu(NO3)2,NaCl,H2SO4,KNO3.C.Na2CO3,NaCl,KNO3,NH4Cl.D.ZnSO4,Mg(NO3)2,NaNO3,KCl.写出解答说明 如果一个只有N极的磁单极子从上至下穿过如图所示的超导线圈那么从上往下看,超导线圈将出现怎样的电流情况我认为根据楞次定律当带有N的磁单极子向下运动时对于线圈N极所影响变大然后 电解水实验刚开始时两管气体的体积不符合理论比的原因正常进行的实验 下列各组物质能在PH=1的溶液中大量共存,且得到无色透明液体的是A.NaCl BaCl Na2SO4B.Na2Co3 NaCl Na2SO4C.CuSo4 NaCl NaNo3D.Na2So4 HCl KCl 一个只有N极的磁单极子从上向下穿过一个超导线圈,从上往下看超导线圈的感应电流方向是怎样的? 在真空中,一半径为R的圆形线圈通以电流I,在其圆心处产生的磁感应强度大小为_______,该线圈的磁矩大小为_______. 氧化亚铜和稀盐酸的反应现象是什么?加入稀盐酸时有少量气泡放出,溶液变为浅黄色,红色固体变为少许白色沉淀.这是怎么回事? 只有一个磁极的磁单极子A通过一超导材料制成的线圈,A离开线圈后电流怎么变化?题目的意思就是假设它已经存在了,答案选的是A离开线圈后,电流保持不变, 实线圆环A、B是光滑绝缘水平面内两个固定的同心超导环,两环分别通上大小相等的电流后,在如图所示,实线圆环A、B是光滑绝缘水平面内两个固定的同心超导环,两环分别通上大小相等的电流 利用氧气与氧化亚铜反应,证明氮气中含有氧气的现象. 1 mol Na2O2与1 mol H2O反应,转移电子是多少mol为什么 圆环上的线圈通以如图所示的电流,则在圆环的圆心O处的磁场方向为解析:由安培定则知螺线管上端为S极,下端为N极,两个螺线管在O点磁场方向均向上,合磁场方向仍向上,故A选项正确. 为什么 根据物体的燃烧性能,木材属于A、非燃烧体 B 易燃烧体 C难燃烧体 D燃烧体到底是哪个啊?讲下具体的原因, 铵根离子能与碳酸根、碳酸氢根共存吗?书上说能,可它们不是双水解吗? na202与h2o反应转移了多少mol电子?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘