face="宋體" lang="ZH-CN">號(hào)等。編輯框還可以進(jìn)行字符選擇操作、粘貼、復(fù)制和剪切操作。　</p>
</font><p>4.3.2 TMemo <font face="宋體" lang="ZH-CN">部件　</p>
</font><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TMemo<font face="宋體" lang="ZH-CN">部件與</font>TEdit<font
face="宋體" lang="ZH-CN">部件類似，能向用戶顯示數(shù)據(jù)，用戶也可輸入數(shù)據(jù)。與</font>TEdit
<font face="宋體" lang="ZH-CN">部件</p>
<p>不同的是，</font>TMemo<font face="宋體" lang="ZH-CN">部件可以處理多行文本，因此主要用于編輯文件。</p>
<p>　　</font>TMemo<font face="宋體" lang="ZH-CN">的</font>Text<font face="宋體"
lang="ZH-CN">屬性只能在運(yùn)行時(shí)才能訪問(wèn)。</font>Modified<font face="宋體"
lang="ZH-CN">屬性用以標(biāo)識(shí)</font>Text<font face="宋體" lang="ZH-CN">的數(shù)據(jù)是否改</p>
<p>變，通過(guò)設(shè)置</font>MaxLength<font face="宋體" lang="ZH-CN">屬性值來(lái)限制用戶輸入字符的數(shù)量。</p>
<p>　　如果把文本當(dāng)成一個(gè)整體進(jìn)行訪問(wèn)，可使用</font>Text<font
face="宋體" lang="ZH-CN">屬性；若想逐行訪問(wèn)，則要使用</font>Lines<font
face="宋體" lang="ZH-CN">屬性。</font>Lines<font face="宋體" lang="ZH-CN">屬性能對(duì)文件更方便地進(jìn)行訪問(wèn)。</font>Lines<font
face="宋體" lang="ZH-CN">是</font>TStrings<font face="宋體" lang="ZH-CN">類型的，因此可使用</font>Add
<font face="宋體" lang="ZH-CN">、</font>Delete<font face="宋體" lang="ZH-CN">方法，例如在</font>Memo1<font
face="宋體" lang="ZH-CN">中加入一行字符串的代碼如下：</font> 　</p>
<p>Memo1.Lines.Add('Another line is added');　</p>
<p><font face="宋體" lang="ZH-CN">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 通過(guò)</font>Lines<font
face="宋體" lang="ZH-CN">屬性可以方便地把文件讀入部件中，例程中使用下面的代碼將文件讀入</font>Memo1<font
face="宋體" lang="ZH-CN">：　</p>
</font><p>Memo1.Lines.loadFromFile(Filename).　</p>
<p><font face="宋體" lang="ZH-CN">從</font>TMemo <font face="宋體" lang="ZH-CN">部件中剪切、復(fù)制、粘貼文本非常方便，只需使用</font>
CutToclipboard <font face="宋體" lang="ZH-CN">，</font>CopyToClipBroad,PasteFromClipBoard<font
face="宋體" lang="ZH-CN">方法，其代碼如下：　</p>
<p>　　</font>Memo1.CopyToClipboard</p>
<font face="宋體" lang="ZH-CN"><p>　　</font>Memo1.CutToClipboard</p>
<font face="宋體" lang="ZH-CN"><p>　　</font>Memo1.PasteFromClipboard　</p>
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TMemo<font face="宋體" lang="ZH-CN">有一些屬性，用以控制文本的顯示效果。</font>ScrollBars<font
face="宋體" lang="ZH-CN">屬性可以定義部件的水平滾動(dòng)條和垂直滾動(dòng)條。當(dāng)文件字體改變時(shí)，使用</font>AutoSize<font
face="宋體" lang="ZH-CN">屬性可使部件大小做相應(yīng)的調(diào)整。設(shè)置</font>WordWrap<font
face="宋體" lang="ZH-CN">屬性可以實(shí)現(xiàn)自動(dòng)換行。</p>
<p>　　例程中</font>Edit|WordWrap<font face="宋體" lang="ZH-CN">菜單項(xiàng)提供了設(shè)置</font>WordWrap<font
face="宋體" lang="ZH-CN">的功能，并可根據(jù)</font>WordWrap<font face="宋體"
lang="ZH-CN">的值決定滾動(dòng)條的形式。當(dāng)</font>WordWrap<font face="宋體"
lang="ZH-CN">為真時(shí)，不需要水平滾動(dòng)條，</font> <font face="宋體"
lang="ZH-CN">并在菜單中作出檢查記號(hào)。</font></p>
<p><font face="宋體" lang="ZH-CN">其代碼如下：　</p>
<p>　</font>procedure TEditForm.SetWordWrap(Sender: TObject);</p>
<p>begin</p>
<p>with Memo1 do</p>
<p>begin</p>
<p>WordWrap := not WordWrap;</p>
<p>if WordWrap then</p>
<p>ScrollBars := ssVertical else</p>
<p>ScrollBars := ssBoth;</p>
<p>WordWrap1.Checked := WordWrap;</p>
<p>end;</p>
<p>SetEditRect;</p>
<p>end;　</p>
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; TMemo<font face="宋體" lang="ZH-CN">部件提供了一組關(guān)于選擇文本的屬性和方法。如果想在部件成為當(dāng)前控件時(shí)自動(dòng)選擇文本，可設(shè)置</font>
AutoSelect <font face="宋體" lang="ZH-CN">屬性。運(yùn)行時(shí)可用</font>SelectAll <font
face="宋體" lang="ZH-CN">方法選中部件的全部文本。</font> Selstart<font
face="宋體" lang="ZH-CN">屬性返回選中文本的開(kāi)始位置，</font>SelText <font
face="宋體" lang="ZH-CN">包含著被選中的文本。</font>SelLength<font
face="宋體" lang="ZH-CN">屬性返回選中文本的長(zhǎng)度，這兩個(gè)屬性可用于字符串的查找和替換。下一節(jié)將詳細(xì)討論。</p>
<p>　　</font>TMemo<font face="宋體" lang="ZH-CN">的</font>Modified<font
face="宋體" lang="ZH-CN">屬性是一個(gè)運(yùn)行時(shí)才能得到的屬性，可判斷部件被創(chuàng)建時(shí)或</font>Modified<font
face="宋體" lang="ZH-CN">屬性最后一次設(shè)置成假值之后，部件上的文本是否修改。如果修改了，</font>Modified
<font face="宋體" lang="ZH-CN">將設(shè)成真值，反之假值。</p>
<p>　　例程中在關(guān)閉文件時(shí)將測(cè)試文件的</font>modified<font face="宋體"
lang="ZH-CN">屬性，如果文件修改后尚未保存，</font> <font face="宋體"
lang="ZH-CN">將出現(xiàn)對(duì)話框，詢問(wèn)用戶是否保存文件，其代碼如下：　</p>
<p>　</font> procedure TEditForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);</p>
<p>var</p>
<p>DialogValue: Integer;</p>
<p>FName: string;</p>
<p>begin</p>
<p>if Memo1.Modified then</p>
<p>begin</p>
<p>FName := Caption;</p>
<p>DialogValue := MessageDlg(Format(SWarningText, [FName]), mtConfirmation,</p>
<p>[mbYes, mbNo, mbCancel], 0);</p>
<p>case DialogValue of</p>
<p>id_Yes: Save1Click(Self);</p>
<p>id_Cancel: CanClose := False;</p>
<p>end;</p>
<p>end;</p>
<p>end;　</p>
<p>4.4 <font face="宋體" lang="ZH-CN">常用對(duì)話框的使用　</p>
<p>　</font> Delphi<font face="宋體" lang="ZH-CN">的可視部件類庫(kù)</font>(Vistual
Component Liberty)<font face="宋體" lang="ZH-CN">中，有一組對(duì)話框部件，在對(duì)象選擇板的</font>Dialog
<font face="宋體" lang="ZH-CN">頁(yè)面中可以找到。</font> <font face="宋體"
lang="ZH-CN">本節(jié)著重介紹與文件編輯有關(guān)的字體對(duì)話框</font>(TFontDialog
Componement)<font face="宋體" lang="ZH-CN">，查找對(duì)話框</font>(TFindDialog
Componement) <font face="宋體" lang="ZH-CN">，替換對(duì)話框</font>(TReplace Dialog
Componement)<font face="宋體" lang="ZH-CN">，文件對(duì)開(kāi)對(duì)話框</font>(TOpenDIalog
Componement).</p>
<font face="宋體" lang="ZH-CN"><p>　　</font> <font face="宋體" lang="ZH-CN">應(yīng)用這幾個(gè)對(duì)話框可對(duì)文件進(jìn)行字體設(shè)置、查找、替換等操作，但需要編寫相應(yīng)的代碼。　</p>
</font><p>4.4.1<font face="宋體" lang="ZH-CN">字體對(duì)話框部件　</p>
<p>　　字體對(duì)話框部件在應(yīng)用程序中產(chǎn)生字體對(duì)話框，</font> <font
face="宋體" lang="ZH-CN">用戶可在對(duì)話框中進(jìn)行字體選擇和屬性設(shè)置。用戶選擇字體并按下</font>OK<font
face="宋體" lang="ZH-CN">按鈕之后，有關(guān)信息便貯存在部件的</font>Font<font
face="宋體" lang="ZH-CN">屬性中。</p>
<p>　　應(yīng)用程序可通過(guò)調(diào)用字體對(duì)話框的</font>Execult<font face="宋體"
lang="ZH-CN">方法來(lái)顯示對(duì)話框，當(dāng)用戶選擇</font>OK<font face="宋體"
lang="ZH-CN">按鈕時(shí)，</font>Execult<font face="宋體" lang="ZH-CN">返回</font>True<font
face="宋體" lang="ZH-CN">值，否則返回</font>Flase<font face="宋體" lang="ZH-CN">值。</font></p>
<p><font face="宋體" lang="ZH-CN">應(yīng)用程序可以使用</font>Options<font
face="宋體" lang="ZH-CN">屬性來(lái)定義字體對(duì)話框的顯示和行為方式：例如可在對(duì)話框中定義一個(gè)幫助按鈕或指定出現(xiàn)在字體列表框中的字體。有關(guān)</font>Options<font
face="宋體" lang="ZH-CN">的主要取值如下表</font>4.1<font face="宋體"
lang="ZH-CN">：　</p>
</font><p><font face="宋體" lang="ZH-CN">表</font>4.1 <font face="宋體" lang="ZH-CN">字體對(duì)話框的</font>Options<font
face="宋體" lang="ZH-CN">取值及含義</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</font></p>
<p><font face="宋體" lang="ZH-CN">取值　　　</font> <font face="宋體"
lang="ZH-CN">　　　　　　　含義</font></p>
<p><font face="宋體" lang="ZH-CN">───────────────────────────────────────</font></p>
<p>AdAnsiOnly <font face="宋體" lang="ZH-CN">如果是真值，只能使用</font>Window<font
face="宋體" lang="ZH-CN">字符集，</font></p>
<p>fdEffects <font face="宋體" lang="ZH-CN">如果是真值，對(duì)話框中顯示顏色列表和效果檢查框；用戶可使</font></p>
<p><font face="宋體" lang="ZH-CN">用效果檢查框定義</font>Strikout<font
face="宋體" lang="ZH-CN">下劃線文本；使用顏色列表定義字體</font></p>
<p><font face="宋體" lang="ZH-CN">顏色。</font></p>
<p>fdForceFontExise <font face="宋體" lang="ZH-CN">　　如果是真值，用戶在字體組合框中輸入字體名后選擇</font>OK<font
face="宋體" lang="ZH-CN">按鈕，</font></p>
<p><font face="宋體" lang="ZH-CN">將出現(xiàn)一個(gè)用戶字體無(wú)效的消息框。</font></p>
<p>fdNoOEMFont<font face="宋體" lang="ZH-CN">　　　</font> <font face="宋體"
lang="ZH-CN">如果是真值，字體組合框中將不顯示向量字體。</font></p>
<p>fdShowHelp <font face="宋體" lang="ZH-CN">如果是真值，對(duì)話框顯示</font>Help<font
face="宋體" lang="ZH-CN">按按鈕。</font></p>
<p>fdWysiwyg <font face="宋體" lang="ZH-CN">如果是真值，</font> <font
face="宋體" lang="ZH-CN">只有打印和屏幕均可得到的字體才會(huì)出現(xiàn)在字體</p>
<p>　　　　　　　　　　　</font> <font face="宋體" lang="ZH-CN">組合框中。</font></p>
<p><font face="宋體" lang="ZH-CN">━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━</p>
<p>　</p>
<p>　　例程中</font>(Edit/Font)<font face="宋體" lang="ZH-CN">菜單具有設(shè)置文本字體的功能，其代碼如下：</p>
<p>　</p>
<p>　　</font>procedure TEditForm.SetFont(Sender : TObject);</p>
<p>begin</p>
<p>FontDialog.Font := Memo1.Font;</p>
<p>if FontDialog1.Execult then</p>
<p>Memo1.Fout := FontDialog1.Font;</p>
<p>SetEdit Rect;</p>
<p>end;<font face="宋體" lang="ZH-CN">　</font></p>
<hr color="#EE9B73" size="1" width="94%">

</TD>
<TD CLASS="tt3" VALIGN="bottom" width="8%"  bgcolor="#e0e0e0"><strong><A HREF="013.htm"><FONT style="FONT-SIZE: 9pt">后一頁(yè)</font></A><BR>
<A HREF="011.htm"><FONT style="FONT-SIZE: 9pt">前一頁(yè)</font></A><BR>

<A HREF="index.html"><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁(yè)</font></A><BR>
</strong>
</TD>
</TR>
</table>
</BODY></HTML>