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