第四章文本編輯器的設(shè)計二-展示頁
2024-09-17 15:26本頁面
【正文】 特別注意的是 TEdit,TMemo 中有一個 HideSeletion 屬性，它決定當(dāng)焦點(diǎn)從該控制轉(zhuǎn)移至其它控制時，被選中的字符是否保持被選中的狀態(tài)。 如果在控件中找到相匹配的字符串，則字符串被選中，函數(shù)返回真值。查找從控件的脫字號 (^)開始， 查找方式由 Options 決定。 end。.39。Cannot find 39。 procedure (Sender: TObject)。 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 在 OnFind 事件中可使用 Options 屬性來決定以何種方式查找。設(shè)計、運(yùn)行時均可設(shè)置。 frFindNext 如果是 真值，應(yīng)用程序查找在 FindNext 屬性中的字符串。如果是假 值， Up 按鈕將被選中，查找方向向上， frDown 值可在設(shè)計或運(yùn)行 時設(shè)置。 如果用戶在對話框中輸入字符并選擇 FindNext按鈕，對話框?qū)l(fā)生 OnFind事件。例如， 用戶可選擇是否顯示匹配檢查框。應(yīng)用程序要查找的字符放到FindText 屬性中。第四章 文本編輯器的設(shè)計（二） 查找對話框部件 查找對話框部件為應(yīng)用程序提供查找對話框， 用戶可使用查找對話框在文本文件中查找字符串。 可用 Execult 方法顯示查找對話框，如圖 。 Options 屬性可決定查找對話框中有哪些選項(xiàng)。 Options 的常用選項(xiàng)如表 。 表 查找對話框的 Options 屬性 的取值及含義 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 取值 含義 ─────────────────────────────────────── frDown 如果是真值，對話框中出現(xiàn) Down 按鈕，查找方向向下。 frDisableUpDown 如果是真值， Up和 Down 按鈕將變灰，用戶不能進(jìn)行選??；如果是 假值，用戶可以選擇其中之一。 frMatchCase 如果是真值，匹配檢查框被選中。 frWholeWord 如果是真值，整字匹配檢查框被選中，設(shè)計、運(yùn)行時均可設(shè)置。 Find 方法響應(yīng)查找對話框的 OnFind 事件。 begin with Sender as TFindDialog do if not SearchMemo(Memo1, FindText, Options) then ShowMessage(39。 + FindText + 39。)。 其中 SearchMemo函數(shù)是 Search單元中定義的， SearchMemo可在 TEdit,TMemo，以及其它 TCustomEdit 派生類中查找指定的字符串。如 果向后查找從控件的StlStart 處開始，如果向前查找則從控件的 SelEnd 處查找。如無匹配的字符串，函數(shù)返回假值。如果是真值，則只有獲得焦點(diǎn)才能保持被選中狀態(tài)?？刂频娜笔≈禐檎嬷怠?interface uses WinProcs, SysUtils, StdCtrls, Dialogs。a39。z39。A39。Z39。139。939。039。 function SearchMemo(Memo: TCustomEdit。 Options: TFindOptions): Boolean。 BufLen: Integer。 SearchString: String。 implementation function SearchMemo(Memo: TCustomEdit。 Options: TFindOptions): Boolean。 Size: Word。 if (Length(SearchString) = 0) then Exit。 if (Size = 0) then Exit。 try (Buffer, Size + 1)。 if P nil then begin := P Buffer。 Result := True。 finally StrDispose(Buffer)。 end。 BufLen: Integer。 SearchString: String。 var SearchCount, I: Integer。 Direction: Shortint。 function FindNextWordStart(var BufPtr: PChar): Boolean。 { (False XOR N) is equivalent to (N) } { When Direction is forward (1), skip non
公司管理相關(guān)推薦
鄂ICP備17016276號-1