2011計(jì)算機(jī)等級考試Delphi：文本編輯器的設(shè)計(jì)

　　當(dāng)用戶在多個(gè)頁面中進(jìn)行切換時(shí)，程序應(yīng)當(dāng)保證對當(dāng)前頁面進(jìn)行編輯。 例如在多頁編輯器中，用戶選中某一頁面，即可對該頁面中的文件進(jìn)行編輯、尋找、設(shè)置、打印等。為了實(shí)現(xiàn)這一功能，定義了一個(gè)TMemo類型的變量：Memo1,該變量沒有實(shí)例化，每次調(diào)用DynaAdd,DynaDel方法均定把TabIndex指定頁面的Memo指針傳給Memo1。這樣在程序運(yùn)行中，始終有一個(gè)實(shí)例化的Memo指針賦給Memo1，而菜單中的文本編輯功能均對Memo1進(jìn)行操作。這種指針傳遞就能保證對當(dāng)前頁進(jìn)行操作。

　　定義了TDynaPage后，只需在Open,Close菜單項(xiàng)中加入如下代碼，即可方便的在用戶打開關(guān)閉文件時(shí)創(chuàng)建成刪除頁面。

　　procedure TEditForm.Close1Click(Sender: TObject);

　　begin

　　if DynaPage.CurPage<>0 then

　　DynaPage.Del(Notebook1,DynaPage.CurPage);

　　if Notebook1.Pages.count = 1 then

　　Close1.Enabled:=False;

　　end;

　　procedure TEditForm.Open1Click(Sender: TObject);

　　begin

　　if OpenDialog1.Execute then

　　begin

　　if not(OpenFile or NewFile) then

　　begin

　　OpenFile:=true;

　　Open(OpenDialog1.FileName);

　　Notebook1.Pages.Strings[0]:=ExtractFileName( OpenDialog1.FileName);

　　TabSet1.Tabs:=Notebook1.Pages;

　　end

　　else

　　begin

　　DynaPage.DynaAdd( Notebook1, ExtractFileName(OpenDialog1.FileName));

　　Open(OpenDialog1.Filename);

　　if Notebook1.Pages.count > 1 then

　　Close1.Enabled:=True;

　　end;

　　end;

　　end;

　　4.3 文本編輯部件及應(yīng)用

　　4.3.1 TEdit 部件

　　TEdit部件是一個(gè)標(biāo)準(zhǔn)的編輯框，用戶可在編輯框中輸入數(shù)據(jù)。編輯框也可向用戶顯示數(shù)據(jù)。編輯時(shí)只能讀寫一行信息。

　　TEdit的Text屬性存放著用戶輸入的數(shù)據(jù)或向用戶顯示的數(shù)據(jù)，Modified屬性用以標(biāo)識 Text的數(shù)據(jù)是否改變，可通過設(shè)置Maxlength屬性值來限制用戶輸入字符的個(gè)數(shù)量，CharCase

　　屬性可定義編輯框中字符的大小寫。如果設(shè)計(jì)者想禁止用戶輸入，可將ReadOnly屬性設(shè)置成真值。編輯框也能用做密碼輸入框。通過設(shè)置PassWordChar 屬性的值，可將用戶輸入的字符在編輯框中顯示成指定的字符，如"*"號等。編輯框還可以進(jìn)行字符選擇操作、粘貼、復(fù)制和剪切操作。

　　4.3.2 TMemo 部件

　　TMemo部件與TEdit部件類似，能向用戶顯示數(shù)據(jù)，用戶也可輸入數(shù)據(jù)。與TEdit 部件

　　不同的是，TMemo部件可以處理多行文本，因此主要用于編輯文件。

　　TMemo的Text屬性只能在運(yùn)行時(shí)才能訪問。Modified屬性用以標(biāo)識Text的數(shù)據(jù)是否改

　　變，通過設(shè)置MaxLength屬性值來限制用戶輸入字符的數(shù)量。

　　如果把文本當(dāng)成一個(gè)整體進(jìn)行訪問，可使用Text屬性;若想逐行訪問，則要使用Lines屬性。Lines屬性能對文件更方便地進(jìn)行訪問。Lines是TStrings類型的，因此可使用Add 、Delete方法，例如在Memo1中加入一行字符串的代碼如下：

　　Memo1.Lines.Add('Another line is added');

　　通過Lines屬性可以方便地把文件讀入部件中，例程中使用下面的代碼將文件讀入Memo1：

　　Memo1.Lines.loadFromFile(Filename).

　　從TMemo 部件中剪切、復(fù)制、粘貼文本非常方便，只需使用 CutToclipboard ，CopyToClipBroad,PasteFromClipBoard方法，其代碼如下：

　　Memo1.CopyToClipboard

　　Memo1.CutToClipboard

　　Memo1.PasteFromClipboard

　　TMemo有一些屬性，用以控制文本的顯示效果。ScrollBars屬性可以定義部件的水平滾動條和垂直滾動條。當(dāng)文件字體改變時(shí)，使用AutoSize屬性可使部件大小做相應(yīng)的調(diào)整。設(shè)置WordWrap屬性可以實(shí)現(xiàn)自動換行。

　　例程中Edit|WordWrap菜單項(xiàng)提供了設(shè)置WordWrap的功能，并可根據(jù)WordWrap的值決定滾動條的形式。當(dāng)WordWrap為真時(shí)，不需要水平滾動條， 并在菜單中作出檢查記號。

　　其代碼如下：

　　procedure TEditForm.SetWordWrap(Sender: TObject);

　　begin

　　with Memo1 do

　　begin

　　WordWrap := not WordWrap;

　　if WordWrap then

　　ScrollBars := ssVertical else

　　ScrollBars := ssBoth;

　　WordWrap1.Checked := WordWrap;

　　end;

　　SetEditRect;

　　end;

　　TMemo部件提供了一組關(guān)于選擇文本的屬性和方法。如果想在部件成為當(dāng)前控件時(shí)自動選擇文本，可設(shè)置 AutoSelect 屬性。運(yùn)行時(shí)可用SelectAll 方法選中部件的全部文本。 Selstart屬性返回選中文本的開始位置，SelText 包含著被選中的文本。SelLength屬性返回選中文本的長度，這兩個(gè)屬性可用于字符串的查找和替換。下一節(jié)將詳細(xì)討論。

　　TMemo的Modified屬性是一個(gè)運(yùn)行時(shí)才能得到的屬性，可判斷部件被創(chuàng)建時(shí)或Modified屬性最后一次設(shè)置成假值之后，部件上的文本是否修改。如果修改了，Modified 將設(shè)成真值，反之假值。

　　例程中在關(guān)閉文件時(shí)將測試文件的modified屬性，如果文件修改后尚未保存， 將出現(xiàn)對話框，詢問用戶是否保存文件，其代碼如下：

　　procedure TEditForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

　　var

　　DialogValue: Integer;

　　FName: string;

　　begin

　　if Memo1.Modified then

　　begin

　　FName := Caption;

　　DialogValue := MessageDlg(Format(SWarningText, [FName]), mtConfirmation,

　　[mbYes, mbNo, mbCancel], 0);

　　case DialogValue of

　　id_Yes: Save1Click(Self);

　　id_Cancel: CanClose := False;

　　end;

　　end;

　　end;

　　4.4 常用對話框的使用

　　Delphi的可視部件類庫(Vistual Component Liberty)中，有一組對話框部件，在對象選擇板的Dialog 頁面中可以找到。 本節(jié)著重介紹與文件編輯有關(guān)的字體對話框(TFontDialog Componement)，查找對話框(TFindDialog Componement) ，替換對話框(TReplace Dialog Componement)，文件對開對話框(TOpenDIalog Componement).

　　應(yīng)用這幾個(gè)對話框可對文件進(jìn)行字體設(shè)置、查找、替換等操作，但需要編寫相應(yīng)的代碼。

　　4.4.1字體對話框部件

　　字體對話框部件在應(yīng)用程序中產(chǎn)生字體對話框， 用戶可在對話框中進(jìn)行字體選擇和屬性設(shè)置。用戶選擇字體并按下OK按鈕之后，有關(guān)信息便貯存在部件的Font屬性中。

　　應(yīng)用程序可通過調(diào)用字體對話框的Execult方法來顯示對話框，當(dāng)用戶選擇OK按鈕時(shí)，Execult返回True值，否則返回Flase值。

　　應(yīng)用程序可以使用Options屬性來定義字體對話框的顯示和行為方式：例如可在對話框中定義一個(gè)幫助按鈕或指定出現(xiàn)在字體列表框中的字體。有關(guān)Options的主要取值如下表4.1：

　　表4.1 字體對話框的Options取值及含義

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

　　取值　含義

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

　　AdAnsiOnly 如果是真值，只能使用Window字符集，

　　fdEffects 如果是真值，對話框中顯示顏色列表和效果檢查框;用戶可使

　　用效果檢查框定義Strikout下劃線文本;使用顏色列表定義字體

　　顏色。

　　fdForceFontExise 如果是真值，用戶在字體組合框中輸入字體名后選擇OK按鈕，

　　將出現(xiàn)一個(gè)用戶字體無效的消息框。

　　fdNoOEMFont　如果是真值，字體組合框中將不顯示向量字體。

　　fdShowHelp 如果是真值，對話框顯示Help按按鈕。

　　fdWysiwyg 如果是真值， 只有打印和屏幕均可得到的字體才會出現(xiàn)在字體

　　組合框中。

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

　　例程中(Edit/Font)菜單具有設(shè)置文本字體的功能，其代碼如下：

　　procedure TEditForm.SetFont(Sender : TObject);

　　begin

　　FontDialog.Font := Memo1.Font;

　　if FontDialog1.Execult then

　　Memo1.Fout := FontDialog1.Font;

　　SetEdit Rect;

　　end;

　　4.4.2查找對話框部件

　　查找對話框部件為應(yīng)用程序提供查找對話框， 用戶可使用查找對話框在文本文件中查找字符串。

　　可用Execult方法顯示查找對話框，如圖4.8。應(yīng)用程序要查找的字符放到FindText屬性中。Options 屬性可決定查找對話框中有哪些選項(xiàng)。例如， 用戶可選擇是否顯示匹配檢查框。Options的常用選項(xiàng)如表4.2所示。

　　如果用戶在對話框中輸入字符并選擇FindNext按鈕，對話框?qū)�發(fā)生OnFind事件。

　　表4.2 查找對話框的Options屬性的取值及含義

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

　　取值　含義

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

　　frDown 如果是真值，對話框中出現(xiàn)Down按鈕，查找方向向下。如果是假

　　值，Up按鈕將被選中，查找方向向上，frDown 值可在設(shè)計(jì)或運(yùn)行

　　時(shí)設(shè)置。

　　frDisableUpDown 如果是真值，Up和Down按鈕將變灰，用戶不能進(jìn)行選取;如果是

　　假值，用戶可以選擇其中之一。

　　frFindNext 如果是真值，應(yīng)用程序查找在FindNext屬性中的字符串。

　　frMatchCase 如果是真值，匹配檢查框被選中。設(shè)計(jì)、運(yùn)行時(shí)均可設(shè)置。

　　frWholeWord 如果是真值，整字匹配檢查框被選中，設(shè)計(jì)、運(yùn)行時(shí)均可設(shè)置。

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

　　在OnFind事件中可使用Options屬性來決定以何種方式查找。Find方法響應(yīng)查找對話框的OnFind事件。

　　procedure TEditform.Find(Sender: TObject);

　　begin

　　with Sender as TFindDialog do

　　if not SearchMemo(Memo1, FindText, Options) then

　　ShowMessage('Cannot find "' + FindText + '".');

　　end;

　　其中SearchMemo函數(shù)是Search單元中定義的，SearchMemo可在TEdit,TMemo，以及其它TCustomEdit派生類中查找指定的字符串。查找從控件的脫字號(^)開始， 查找方式由Options決定。如果向后查找從控件的StlStart處開始，如果向前查找則從控件的SelEnd處查找。

　　如果在控件中找到相匹配的字符串，則字符串被選中，函數(shù)返回真值。如無匹配的字符串，函數(shù)返回假值。

　　特別注意的是TEdit,TMemo中有一個(gè)HideSeletion屬性，它決定當(dāng)焦點(diǎn)從該控制轉(zhuǎn)移至其它控制時(shí)，被選中的字符是否保持被選中的狀態(tài)。如果是真值，則只有獲得焦點(diǎn)才能保持被選中狀態(tài)。查找時(shí)，焦點(diǎn)在查找對話框上，因此要想了解查找情況，必須將HideSeletion設(shè)成假值。控制的缺省值為真值。