知识大全文本编辑器的设计（二）[1]

Posted 2022-07-22 真值

篇首语：幽映每白日，清辉照衣裳。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全文本编辑器的设计（二）[1]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：文本编辑器的设计（二）[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 查找对话框部件

　　查找对话框部件为应用程序提供查找对话框用户可使用查找对话框在文本文件中查找字符串

　　可用Execult方法显示查找对话框如图应用程序要查找的字符放到FindText属性中 Options 属性可决定查找对话框中有哪些选项例如用户可选择是否显示匹配检查框 Options的常用选项如表所示

　　如果用户在对话框中输入字符并选择FindNext按钮对话框将发生OnFind事件

　　表查找对话框的Options属性的取值及含义

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　取值含义

　　───────────────────────────────────────

　　frDown 如果是真值对话框中出现Down按钮查找方向向下如果是假值 Up按钮将被选中查找方向向上 frDown 值可在设计或运行时设置

　　frDisableUpDown 如果是真值 Up和Down按钮将变灰用户不能进行选取如果是假值用户可以选择其中之一

　　frFindNext 如果是真值应用程序查找在FindNext属性中的字符串

　　frMatchCase 如果是真值匹配检查框被选中设计运行时均可设置

　　frWholeWord 如果是真值整字匹配检查框被选中设计运行时均可设置

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　在OnFind事件中可使用Options属性来决定以何种方式查找 Find方法响应查找对话框的OnFind事件

　　procedure TEditform Find（Sender: TObject）

　　begin

　　with Sender as TFindDialog do

　　if not SearchMemo（Memo FindText Options） then

　　ShowMessage（ Cannot find + FindText + ）

　　end;

　　其中SearchMemo函数是Search单元中定义的 SearchMemo可在TEdit TMemo 以及其它TCustomEdit派生类中查找指定的字符串查找从控件的脱字号（^）开始查找方式由Options决定如果向后查找从控件的StlStart处开始如果向前查找则从控件的SelEnd处查找

　　如果在控件中找到相匹配的字符串则字符串被选中函数返回真值如无匹配的字符串函数返回假值

　　特别注意的是TEdit TMemo中有一个HideSeletion属性它决定当焦点从该控制转移至其它控制时被选中的字符是否保持被选中的状态如果是真值则只有获得焦点才能保持被选中状态查找时焦点在查找对话框上因此要想了解查找情况必须将HideSeletion设成假值控制的缺省值为真值

cha138/Article/program/Delphi/201311/25252

知识大全 文本编辑器的设计（二）[1]

知识大全文本编辑器的设计（二）[1]