Delphi中RichEdit的奥妙-控件新闻-慧都网

产品

产品
资讯
资源
视频
学院
示例

Delphi中RichEdit的奥妙

翻译|其它|编辑：郝浩|2006-06-22 09:34:00.000|阅读 1581 次

概述：

　一、如何得知当前行号
　　
　　用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中调试通过。　　

标签：

本站文章除注明转载外，均为本站原创或翻译。欢迎任何形式的转载，但请务必注明出处、不得修改原文相关链接，如果存在内容上的异议请邮件反馈至chenjj@evget.com

上一篇：改变VCL的行为--一个使用可视化元件的实例下一篇：使用图像列表设置表头图像