您现在的位置: 天下网吧 >> 网吧天地 >> 天下码农 >> 后端开发 >> PHP >> 正文

DELPHI 技巧 - RichEdit使用技巧

2008-11-7网络佚名

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

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com

关注天下网吧微信/下载天下网吧APP/天下网吧小程序,一起来超精彩

本文来源:网络 作者:佚名

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。若文章侵犯了您的相关权益,请及时与我们联系,我们会及时处理,感谢您对本站的支持!联系邮箱:support@txwb.com,系统开号,技术支持,服务联系QQ:1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧 网吧天下