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

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

Delphi:用FormContainer渐变效果 Delphi4的窗口融合技术 Delphi使用技巧ABC Delphi使用技巧四则 DELPHI中自适应表单的实现 TList的用法-Delphi资料 不规则窗口的实现-Delphi资料 不用标题栏也移动窗体-Delphi资料 窗口建立和关闭时的特效-Delphi资料 窗口中状态行的显示-Delphi资料 动态提示的可视化实现-Delphi资料 动态修改显示器分辨率-Delphi资料 对数据库中的数据进行处理-Delphi资料 改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 回车替Tab下移控件-Delphi资料 获取系统颜色-Delphi资料 渐变色窗口背景-Delphi资料 控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 控制Form不能放大、缩小、移动、关闭-Delphi资料 控制系统菜单-Delphi资料 利用Delphi实现支持窗体的自定义函数 轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 让彩色光标出现在Delphi程序中 让彩色光标出现在程序中-Delphi资料 这样的问题也没人会????????????????? 如何使用QuickRep制作简单报表?不牵涉任何DataSet的 关于Transaction的问题 请问 ListCtrl Item里的 Checkbox 被点击时对应的消息是什么? 100分~~100分~~高分求购。。。我也‘倾家荡产求购优秀系统分析案例’(paste from yyzh)。。。100分~~ 全中文的用Rose做的实际项目的UML模型! 救命!!我的机器不能下载东西了,怎么回事?? 求教邮件编程问题,邮件客户端如何实现“在服务器端保留备份的功能“? ciscoworks 各位大哥大虾,VC下如何用ADO连SQL SERVER?(急) ShellExecute和CreateProcess有什么区别? 关于海量数据、最有效率的排序、硬盘缓冲与映射、专业数据库的讨论 如何用VB编启动是可以带参数的程序呢?(例如:我自定义了一种文件,双击用我的程序打开,程序自动会打开这个文档 昨天我过生日,今天分蛋糕给大家 请问哪有《java图形设计2Swing篇》可以下? 我要用一个数据库去实时访问另一个据库,我该怎么办 URLghj1976@csdn.net----别吓我,有请您老人家! 谁给我介绍一下sql server7.0教材的比较好的下载网站,我给他20分。 我都急死了,到搜索引擎里搜到的好几个站点都不能用,到底哪儿可以当到3DMAX? 谁有写的比较好的邮件收发程序? 一个微软证书的私钥问题 微软证书的私钥问题 求助,简单问题 男人最快乐的十个瞬间! solaris下装oracle8.1.6遇到jre环境问题 怎抹加分?我准备给别人加40分,可我最多只能加20,请问另外20分怎末加分,为此我可能已得罪了一些人了。 请教下载的问题 如何在运行时动态修改Quick Report的打印机设置? 怎样做一个接受拽拖的LISTBOS(例如,把资源管理器里的文件拖到上面,就自动增加一项 ,就是拖的文件名) 怎样才能隐藏在ctrl+atl+del中进程列表中的项目啊 用C写DLL 请问:airhorse(编程至尊宝),infopower3000的注册码可以用于商业目的吗? 结构化异常处理 linux下如何配置内置Mondem? red hat linux7.0下安装oracle8.1.6遇到问题 我是菜鸟,问一个关于类的问题 问题:TWebbrower中,InnerHtml和OuterHtml以及InnerText和OuterText之间的区别 (加急)我要傻了,快救命啊!高分求救!!(回答正确者尽管开口要分!) ==============VC中怎样调试控制台程序=============? 再问:MS SQL6.5 的.DAT文件怎么恢复,请高手帮忙,(100分绝对对线) 白桦林 我需要自定义一个鼠标按下的事件,可我不知道该去那个参数?有人能告诉我吗? 有谁有比较好的javacript教学方面的电子文本? 两个关于数据库的问题(上次写的不太清楚),我的分快用完了,只能随便给点意思意思了! DotNet时代真正来临了/VB.NET/Beta2正式版下载地址/大家要就快点/如果FTP停了/可不要怪我 那里有DIRECTX编程的书或资料呢?(用VB编) @_@````兄弟们!!有在WIN2K下用VC6搞开发OR学习的吗? 该是到了绝望的时侯了 DotNet时代真正来临了/VS.NET/Beta2正式版下载地址/大家要就快点/如果FTP停了/可不要怪我 在用户登录后,她要更改密码或用户信息,怎么实现?用cookie吗? 建议增加UNIX开发板块! 化简二次根式 (根号b/a-根号a/b)/(根号a-根号b) 已知关于X的方程K的平方X的平方+(2K-1)X+1=0有两个不相等的实数根,求K的取值范围 解一元一次方程如何移项,方法. 已知xy大于0,二次根式x根号负y除以x平方=? 求证:无论k为何值,方程x 的平方-(k+3)x+2k-1=0总有两个不相等的实数根 解一元一次方程移项的理论依据是什么 先化简,再求值:x+根号xy/根号xy+y+根号xy-y/x-xy,其中x=根号3+1,y=根号3-1 求证:方程x平方+(2k+1)x-k平方+k=0一定有两个不相等的那个的实数根 解一元一次方程时移项为什么要变号?求详细原因. 化简根式根号10-4根号3+2根号2 已知关于x的方程X^2+(2k+1)x+k^2-2=0的两个实数根的平方和为11,求k的值. 不等式移项变号法则 注是不等号 化简根式a倍根号下a分之b+b倍根号下b分之a 求证:关于X的方程X的平方+(2K+1)X+2K-1=0有两个不相等的实数根 这是不等式的什么变号法则? 急,把下列各式化成最简二次根式 第一题 5分之27倍根号下27分之13的平方减去12的平方第二题 负的2分之abc根号下2*a的四次方*b分之c的立方 求证:关于x的方程x的平方+(2k+1)+k-1=0有两个不相等的实数根 不等式变号法则还是没搞清楚不等式什么时候要变号.谁能跟我说说清楚?2X-4 八年级数学题(先化简二次根式)根号12-根号4分之3-根号3分之1+根号27 若关于x的方程x平方-(2k-1)x+k平方=0有两个不相等的两个实数根,求k的最大整数值若关于x的方程x平方-(2k-1)x+k平方=0有两个不相等的两个实数根,求k的最大整数值 什么是解方程,解不等式的移项法则 二次根式 化简 根号下面(-a3次方)+根号a² 求证 关于x的方程x的平方+(2k+1)x+k-1=0有两个不相等的实数根 不等式怎么变号? 化简二次根式根号下7+4根号3 已知关于x的方程¼x²-(m-2)x+m²=0 是否存在正数m使方程的两个实数根的平方和为224 一元一次方程的移项怎么移?移项我总是弄不懂 那个数怎么移我也不知道 移过去是加还是减,乘还是除,我就是搞不懂 谁来教教我 普通的移项我会移,但是稍复杂的我就不会移了,像有理数那一 若最简二次根式三分之二根号5a²+1与5倍根号7a²-1能进行合并,则合并的值是? 是否存在实数m,使关于x的方程4x的平方-4mx+m+2=0的两个实数根的平方和最小?若存在求出m的值及这个最小值 一元一次方程移项怎么移 ①根号5a ②根号4-B² ③c²④根号1-d分之1,是二次根式的有 方程3×y的平方+4x+3K=0的两个根的平方和等于7,求k的值 解一元一次方程移项怎么移明确着点 根号 18a²b五次方 化简二次根式 已知方程2x的平方+4X+M等于0的两根平方和是34,求m的值 一元一次方程怎么移项?老是移不来 求不等式负3小于等于4x减4x平方小于等于o的解集,这题怎么写? 满足方程{2x=y=k,-4x-3y=k+8 的x、y和等于3k,则k=满足方程{2x+y=k,-4x-3y=k+8 的x、y和等于3k,则k= 初一数学整式的加减去括号和化简有什么区别 (x减2分之x加2 减x平方减4x加4分之x减4)除以x平方加x 分之x平方减1 其中x=2+根号2先化简,再求值 若关于x的不等式(1减a)x的平方减4x加6大于0的解为x大于负3小于1则a等于? 已知ab互为相反数,cd互为倒数,x的绝对值为5,则x的平方+(a+b)的2010次方+(-cd)的2011次方的值为? 已知x=3-2y,求3根号x-2y除以根号4x平方-16y平方 求不等式4x的平方减4x加1大于0的解集 解方程(采用移项法)谢谢 9减4倍根号5的算术平方根是多少最好有过程! X平方减4X大于0的不等式怎么解? 利用移项法解一元一次方程, 当x的算术平方根=2,则x2=16,三次根号负4x=? 不等式x的平方减4x+5大于0 的解集 要过程 移项法比利用等式性质法解方程更为_______,但同时容易出现一个常见的错误是________的问题 下列二次根式中,化简后被开方数与根号2的被开方数相同的是A根号0.2B根号2的平方C根号22D根号1/2A.根号0.2 B.根号2的平方 C.根号22 D.根号1/2为什么? 已知关于x的方程x^2-(k-1)x+k=0的两个实数根的平方和等于4求实数K的值 x+4.6=10.9用移项法怎么做 合并下列根式中的同类二次根式:1/2m乘以根号4m加上6m乘以根号9分之m减去2m的平方乘以根号m分之一明天1:00之前一定要,好的会追加分的 已知方程x²+(2k+1)x+k²-2=0的两实数根的平方和等于11,则k的取值是 带上讲解A.-3或1B.-3C.1D.3 移项利用了什么数学原理? 已知XY 已知关于x的方程x²+(2k+1)+k²=0的两个实数根的平方和是7,求k的值 解一元一次方程,合并同类项与移项.解方程(1)-3x=3-x/9 (2)6y-3/4=4y+5/4 (3)3x+4=x/3 (4)-2x=2-x/6(5)2.5y+10y=6.5y-3 (6)1/2x-1=2/3x+3/2 (7)0.5x-0.7=6.5-1.3x要有移项,合并同类项,系数化为1这些过程
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn