delphi 技巧 - richedit使用技

richedit组件和memo组件非常相似，但richedit组件的文字可以有多种字体、颜色。它们一般用于制作文本编辑器。在文本编辑器中我们一般需要知道光标的当前行号，另外我们还要实现undo（撤销）功能。

　　一、如何得知当前行号　　

　　用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)),'消息',mbiconinformation);
　　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; 　　

　　以上程序在delphi5中调试通过。

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

delphi 技巧 - richedit使用技

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

delphi 技巧 - richedit使用技

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范