DELPHI基础教程：文本编辑器的设计（二）[1]

查找对话框部件

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

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

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

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

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

取值 含义

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

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

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

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

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

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

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

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

procedure TEditformFind（Sender: TObject）

begin

with Sender as TFindDialog do

if not SearchMemo（Memo FindText Options） then

ShowMessage（Cannot find + FindText + ）

end;

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

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

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

[] [] [] []