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

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

众联智领CTO:从idea到面目全非的创业产品 CMDN Club 25期:knewone与路况电台的精益创业法则 Windows Blue的孪生兄弟?Office Gemini浮出水面 HTML5开发平台Ludei将支持3D游戏开发 《二战风云》发布至今,已为顽石互动狂赚2.7亿 腾讯开源基于HTML5技术的专业级图像处理引擎 AlloyImage Linux容器运行时Docker开源 360上线第三方漏洞收录平台 将现金奖励爆料者 UC推出iOS平台首个支持WebGL的浏览器 魔兽之父专访:今年游戏产业会出现一场革命 Instagram 5位传奇工程师背后的技术(PPT全译) Google云计算专家Jeff Dean与Sanjay Ghemawat获ACM Infosys基金会大奖 谷歌承诺不对开发、发行和使用开源软件的人专利诉讼 Web框架排行榜 Netty、Servlet和Vert.x位列前三 DARPA慷慨解囊的背后:Python与大数据的火花 研发周报:神奇!1KB JavaScript代码编写的3D蜜蜂 移动周报:65岁传奇Android工程师谈开发 “部落战争”开发商Supercell融资1亿美金 投资公司争先恐后 Kiip 90后华裔励志故事:从遭解雇到誉满全球 大数据基因测序的成本逼近1000美元:个性化医疗的时代来临 携程开放平台发力 将实现旗下产品全流程API支持 Puppet labs发布2013自动化运维报告 “国”字号开发者:航旅纵横负责人薄满辉专访 金山云杨钢:核心算法保证安全和低成本 加速软件交付 企业级模拟测试服务CA LISA受追捧 盛大云业务重点转向自服务 转战中小型企业:Prediction API请求一个月内飙升至7亿多次 利用光子 耶鲁大学研究人员让量子计算机离现实更近一步 技术为王的云计算会让IT部门消亡么? 从Discuz到APP:安米移动社区转化工具 覆盖全领域:Google、Facebook、Twitter等大师的最佳推荐 高分求SOCK端口代理软件 一个简单的问题请指教 exit和return的区别是什么? 关于/t控制符 七张蝶的Visual Studio .NET 正式版的CD Key是什么 ——求教 如何让主窗口的toolbar显示在最下方。并加button在主窗口的右方 create table 时怎样设置number型字段默认值为0?? 请大家帮忙,找个C++编译器的下载地址 关于TImage的问题 怎么在sql语句中使用datediff? 能不能让radiobutton同时多选? 如何在服务器数据库数据变化时,在客户端实现同步刷新. 急:请问如何跨网段浏览Samba服务器?? 如何在服务器数据库数据变化时,在客户端实现同步刷新. 链接excel表的连接字符穿如何写 哪位有excel工作表的完整文件格式,请发至localvar@chinaren.com,谢谢 请问:在IE中用Applet时候支持的Java的包有那些,Javax.Swing是否支持,好像不行,那又如何解决?? 帮我看一段程序!为什么他不能提交到指定的asp网啊?在线等待!!!!! 如何在服务器数据库数据变化时,在客户端实现同步刷新. 给大家一个简单的算法测试,娱乐娱乐吧。 关于C语言加载时“文件太大”的问题 关于连接数据库的问题 这个错误:UploadAction为什么是Undefined ,要在php.ini设置什么吗? 怎样将在一个网页中的值传递给另一网页用?!急!!!! 前一段时间要电子书的朋友快来这里!!!领书¥ 有计算当月共有几天的函数吗? ejb中的实体bean要不要实现查找方法 “select * from name where name='name'" 菜鸟菜问 运行是的问题 EXCEL中的数据能否导到DBF文件中? 用C语言怎样在命令行编程方式下实现对用户输入文件路径正确的判断?谢谢 关于下拉框连动的问题?? 关于标点符号 有关c#在 ASP中的应用 我太笨了!我只是想用vb显示access2000数据库中的纪录,但是我办不到,我不想。。。。。。。 请问如何能得到分辩率 请问各位这个错误提示是什么意思? 菜单 Sql server OLAP Server 的问题,win98如何支持更新立方体? applet连接数据库,写了一个policy文件,用appletviewer可以browse,但是如何在ie和nc中带那个policy文件?请各位帮忙一下... 请问sql server怎样改变原来的排序规则名称 SOCKET的问题 BSD系统中关于服务器bind后的释放 下面这段代码是做什么用的 用C语言怎样在命令行编程方式下实现对用户输入文件路径正确的判断?谢谢 干这一行的找个工作与找个对象哪个容易,谈谈你的经历。 有关拼音查询的问题 能给出标准SQL书写事务的SQL语句吗?请给个例子。 个人的邮箱大小为什么不变? 如何在视图上添加自定义的背景! 两个人同时用10公斤力气拉弹簧的两端,请问弹簧受力有多大? 力的大小与弹簧深长长度的关系是不是 F=二分之一kx x为弹簧伸长长度 但有人说F=二分之一kx^啊 x到底有没有方? 汽车搭铁线的类型及作用有哪些? 当一个弹簧两边都受力,它总共受的力怎么算? 英语怎么翻译 你想再吃一些芒果吗? 如图两人分别用大小为f1 f2的力沿相反方向拉弹簧的挂钩和圆环,弹簧秤静止不动,示数为8牛,结论对的是a f1=f2=8牛b f1=f2=4牛c f1=f2=16牛d f1=8牛,f2=0 乘客侧车门外把手开关电路对搭铁短路怎么办? 太阳能电池板用整流二极管 防反充行吗 已知弹簧的长度y(厘米)在一定的弹性限度内是所挂重物的质量x(千克)的一次函数现已测得不挂重物时,弹簧的长度是6厘米,挂4千克的重物时,弹簧的长度是7.2厘米,求这个一次函数的关系 弹簧产生弹力的大小等于任意一段受力的大小吗,为什么? 第一个图是3个太阳能电池板并联,把肖特基稳压整流二极管接在每块电池板负极,这样接对么?正极要不要也这样接一下?还是只接正极不接负极?还是图中的接负极就可以了,不用接正极?第2个图 为什么不规定作用点到支点的距离叫力臂 含有碱性蛋白酶的洗衣粉中,用后,为何彻底清洗双手 整流二极管的作用? 在弹簧测力计的两端分别施加两个力F1和F2,若F1=F2,示数将如何?若F1>F2,示数又将如何? 黑色毛衣可以放太阳下面晒么 工地上用的镀锌管做穿线,哪个型号,哪个厚度常用些. 请问摩托车电路中“搭铁”是什么意思?请问摩托车电路中“搭铁”具体是指什么?是指电瓶负极接在车架上吗?如果这样的话,是不是用万用表的红表笔接电瓶正极,黑表笔随便搭在车架任何一 车辆检测器的主要功能是什么?(大概300字左右) 油渍能洗掉吗?用什么洗衣粉 请问有谁知道IN4001整流二极管有灰白色圈的那段是正极还是负极啊? 汽车电源电压在什么情况下会升高 锂电池串连、并连时的电压、电量的变化.举个例, 摩托车为什么搭铁就会熄火?原理是什么?电路是怎样的?车子启动后,不能熄火,修的时候,有根线断开了,接到车架上就能熄火了,请详细说明,能整车电路说明更好,启动电路,熄火怎样的?还是有点 如图所示,一木块放在水平桌面上,在水平方向上共受到三个力,即F1、F2和摩擦力作用,木块处于静止状态,如图所示,一木块放在水平桌面上,在水平方向共受到三个力即F1、F2和摩擦力的作用,木块 如图所示电路,电源电压为12伏,R1为8欧.当只闭合开关S1时,灯L正常发光;如图所示电路,电源电压为12伏,R1为8欧.当只闭合开关S1时,灯L正常发光;只闭合S2、S3时,灯L的功率为额定功率的25/36;只闭 合称五岳的五座名山,它们分别是中岳[ ],东岳[ ],北岳[ ],南岳[ ],西岳[ ].快急 有一木块放在水平桌面上,在水平方向共受到三个力即F1,F2和摩擦力作用,木块处于静止状态.其中F1=10N,F2=2N.若撤去力F2,则木块在水平方向受到的合力为?求解释QAQ 一个锂电池的电量,电压是多少?还有形状 弹簧受力伸长.由实验知,在弹性限度内,伸长量和受力大小成正比.现在已知一弹性限度为牛顿的弹簧受力9.8牛顿时,伸长0.02米,求弹簧的伸长量和受力之间的函数关系.并写出定义域 两个英语翻译 如图所示电路中,电源电压保持不变,在滑片P向左移动的过程中,电流表示数 电压表示数这是并联电路, .一根竖直挂着的弹簧,在其弹性限度内分别用5牛顿、10牛顿的力去拉它的自由端,若弹簧的两次长度分别为4厘米和5厘米,求弹簧的原长. 英语翻译1:You are going to have a party.Call your friends and ask them to come to the party.2:Choose you clothes for the party.Colour and cut out the clothes on page 69.(注:1和2题要分开,) 【初中物理电学题】如图所示电路,电源电压保持不变……(详见正文)如图所示电路,电源电压保持不变,灯泡L1、L2分别标有“6V 3W”和“6V 6W”的字样.若开关S1断开,S2闭合时,恰好有一只灯泡 拉长弹簧所需力P与弹簧伸长量成正比,已知拉长1厘米所需力2牛顿,则将弹簧拉长5厘米做的功为 电瓶车电池一般能存多少电量的电? 如图所示的电路中 电源电压保持不变 闭合开关s后如图所示的电路中 电源电压保持不变 闭合开关s,电路正常工作.过了一会儿,电压表和电流表示数的比值变小.下列正确的是()答案是D.为什 指甲剪上有几个杠杆?哪些是省力杠杆,哪些是费力杠杆? 电瓶车电瓶新的电量怎么这么少?电瓶车买了1年了,小帅哥牌子的踏板车,是48V20安的电瓶,买了半年左右电瓶偷过一次,然后又花了700元买了一组,每天骑电动车上班下班,大概有30公里路,可是第二 在DN20的镀锌管上套丝用多大的板牙 指甲剪的省力杠杆的支点和阻力的点在哪里啊,嗷嗷 怎么看电瓶车电池的剩余电量.我刚买了电瓶车,不晓得在哪里看电瓶车的电量, 太阳真的会爆炸吗? 指甲剪的哪些部分为省力杠杆、费力杠杆? 如何测量电瓶车电池的存电量 太阳爆炸后~会成为什么状况 指甲剪上有几个杠杆 阻力动力支点分别是什么 汽车修理怎么检测复杂电路的短路 太阳会爆炸吗? 我在写一篇关于电力安全的报告,选了一个案子就是电源线短路引起的为灾,可是我对电源线怎样短路并造成火花引燃易燃物品的细节不是特别清楚,解释一下具体电源线是怎样短路的. 电路中短路如何检查如在一个较多支路的电路中通电后跳闸,怎么检查是在什么地方短路 太阳真的会爆炸咩! 指甲剪上有几个杠杆?分别是省力杠杆还是费力杠杆? 在什么情况下力臂是支点到力的作用点的距离 小芒果用英语怎么说?求全部翻译 电动车控制器的电源线正负极短路了当控制器电源线正负极接上电池时火花猛烈,“锁头没打开”,用万用表测正负极线是通路的, 力臂为什么不是支点到力的作用点的距离,而是支点到力的作用线的垂直距离? 芒果,翻译 什么是搭铁线汽车里一般几条?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘