说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Delphi中RichEdit的奥妙

HTML文档下载 WORD文档下载 PDF文档下载
Delphi中RichEdit的奥妙

一、如何得知当前行号   

用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资料 怎样使用PageUp、PageDown滚动窗体-Delphi资料 怎样制作全透明的窗口-Delphi资料 DELPHI:FormContainer简易手册 Delphi:用FormContainer渐变效果 请问哪里有Sybase11.9下载???急! server to server 方式如何提交一个新的页面 求vc笔试题目 在vc的win32 application程序中如何开始多线程? 亲爱的朋友——“图片无预览”怎么办??? vc中资源问题。 Windows2000的用戶權限 关于VB中引用DirectX的一个问题 一个日期加上任意天数得到另一个日期的算法 我的家庭英语作文,我不会写太多的英语单词所以请各位 知道一个英语单词,那里可以去下载读音 请问哪里有英语单词发音软件下载 有什么软件可以把英语单词的发音读出来? 翻译英语单词和句子用什么软件好呢? 英语翻译一般有些英语有2种发音.比如clerk[k 有什么软件有可翻译英语单词?(要有读音的) 有没有在线边翻译英语单词还有读音的? 请问有没有专门翻译英语单词或者句子的软件? 美国国务卿克里促埃及政府勿延长全国紧局势动荡民众对政治改革灰心 埃及再现缅甸发生沉船事故 载有70人船只仅8民调显示超3/4德国人认为美国国安局美国国务卿克里促埃及政府勿延长全国紧我市两所学校挺进决赛文明交通宣传走进工地中牟麦收迎来高峰人才达85万郑州地理攻仙进化交响网游之厄运牧师太上真神转生三国当吕布成都市博物馆旅游南山一棵树观景园旅游周公馆旅游中国醋文化博物馆旅游焦山行宫旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘