Delphi中RichEdit的奥妙

发表时间：2023-07-29 来源：明辉站整理相关软件相关文章人气：

[摘要]一、如何得知当前行号　　用RichEdit（或者memo）控件制作文本编辑器时，通过访问linescount属性可以得到总行数，但是若想知道光标当前所在行的行号就麻烦了，因为delphi没有提供这...

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

标签：Delphi中RichEdit的奥妙

上一篇：PHP的面向对象编程：开发大型PHP项目的方法(3)（转载）

下一篇：首页制作的510个秘诀

文章发布全站软件文章热门搜索：下载折扣 win8系统影响启动速度资讯首页腾讯视频爱奇艺暴风影音酷狗音乐酷我音乐影音大全软件下载软件教程电脑系统下载聊天工具办公软件杀毒教程系统工具图形图像电脑学习应用软件网络软件苹果应用注册码网站教程技术开发安卓教程其它教程您当前所在位置：网视手游站 -> 技术开发 -> Delphi中RichEdit的奥妙
Delphi中RichEdit的奥妙发表时间：2023-07-29 来源：明辉站整理相关软件相关文章人气： [摘要]一、如何得知当前行号　　用RichEdit（或者memo）控件制作文本编辑器时，通过访问linescount属性可以得到总行数，但是若想知道光标当前所在行的行号就麻烦了，因为delphi没有提供这... 一、如何得知当前行号　　用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中调试通过。标签：Delphi中RichEdit的奥妙上一篇：PHP的面向对象编程：开发大型PHP项目的方法(3)（转载）下一篇：首页制作的510个秘诀	推荐资讯总人气榜 1PS提示：因为图层已锁定，无法编辑图层的处理方法 2picacg苹果版怎么找不到\|picacg ios版是不是下架了介绍 3Adobe Illustrator CS5 序列号大全 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本） 5Potato(土豆聊天)怎么换头像\|Potato app更改头像方法介绍 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程 7Potato(马铃薯聊天)怎么注册不了\|Potato不能注册处理方法介绍 8最新的Adobe Illustrator CS4序列号大全 9Intel i7-9700K性能跑分曝光：同代提升约12% 10XP系统怎么清除缓存？ 11Intel Z390主板有望10月8日公布：8核9代酷睿随后登场 12XP系统安装chrome无法找到入口怎么处理？ 1PHP 留言簿（带Oracle数据库分页的显示技巧） 2php.ini 设置详细选项 3Visual C++剪贴板设置不完全攻略 4PHP新手上路--6. 网络资源 5Csharp+Asp.net系列图文详细教程（二） 6股票报价的WebService（转天极网）之5 7怎么合并2个ICON 8PHP.MVC的模板标签系统(5) 9让动态创建的ActiveX控件响应Windows消息 10用VB设计更改屏幕保护的程序 11Delphi 编写Windows NT服务 12C＃的Web XML编程（转自ourasp）最新教程本月人气 1HDD巨头希捷要发威：推全球首款2TB M.2 SSD! 2尼康正式公布105mm f/1.4 ED AF-S镜头：心动！ 34999元！小米笔记本Air正式公布：独显超薄 4打得对手毫无还手之力！NV新TITAN X 8月就来了 5终于舍得换模具了？MacBook Air或更新：更轻薄 6没有网盘的日子照常开车原来手机U盘才是王道 7教你怎么优雅的装机（逼）：装机装出新高度！ 8龙芯3A2000开源电脑首发支持自主IT生态建设 9这次到底有没有新款MacBook Air？9.12敬请期待 10甜点级显卡：蓝宝石RX470与RX460真卡来了！ 113GB版GTX 1060上市时间曝光：RX 480无路可退 12微软平板Surface Hub供不应求，超出预期 1autocad20073维制图图文详细教程：画容易的弹簧 2cad2007画橄榄球的2种方法 3cad2007绘制厨房用的水槽的图文详细教程 4cad3维制图图文详细教程:曲线弹簧的画法 5有什么技巧可以提高AutoCAD2007的绘图效率？ 6autocad2007保存时出现：致命出错怎么处理？ 7AutoCAD 2007裁剪范围外对象的图文详细教程 8AutoCAD 2007选择编辑的使用技巧 9怎么提高推广关键词质量度 10防范SQL注入的5种完成方式 112015年10月6日爱奇艺会员账号共享优酷会员账号共享迅雷会员vip账号分享 12Visual C++剪贴板设置不完全攻略
相关文章在 C# 中处理结构内的数组给浏览器的滚动条加上颜色 VB.net是怎么做到的（4、5）在PB中调用外部函数在2003下用JDBC访问本机MS SQL 让 Asp 与 XML 交互用VC判断软件使用的设置系统 VB.net是怎么做到的（一、二）一个取得随机颜色生成在区域 VB通过DAO访问Access数据库使用设计模式构建通用数据库访问类在PB中完成分段打印技巧

Delphi中RichEdit的奥妙

推荐资讯 总人气榜

最新教程 本月人气

相关文章

推荐资讯总人气榜

最新教程本月人气