Delphi中RichEdit的奥妙_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi中RichEdit的奥妙

作者：闵涛文章来源：闵涛的学习笔记点击数：736 更新时间：2009/4/23 18:44:14

一、如何得知当前行号
　　用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程序]获得Memo、RichEdit的光标位置 [Delphi程序]MSN / QQ 中的动画表情在Delphi中RichEdit的实现…

教程录入：mintao 责任编辑：mintao

上一篇教程：如何得到硬盘物理序号

下一篇教程：将面向对象的思想贯穿始终--谈Delphi开发（第三篇）

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……