DELPHI 技巧 - RichEdit使用技巧

Rhinoceros

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

我爱Ｐ４

鼓励～～～～

Rhinoceros

顶起~~~~~~~~~~~~