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設成假值控制的缺省值為真值

[]  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25252.html