DELPHI经典编程入门(4).pdf

《DELPHI经典编程入门(4).pdf》由会员分享，可在线阅读，更多相关《DELPHI经典编程入门(4).pdf（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Delphi园地 http:/ 第四章 文本编辑器的设计（一）第四章 文本编辑器的设计（一）本章介绍多文本界面(MDI)、多页面界面(MPI)技术；VCL库中TMemo，TEdit 控件以及有关文本编辑的常用对话框的使用。我们开发的MPIEdit.dpr是一个文本编辑的实用程序，可实现如下功能：MDI的编辑环境 MPI的编辑环境 创建打开、编辑、保存文件 查找、替换文件中指定的字符串 复制、粘贴、剪切字符串 设置文件字体大小 打印文件 本章将通过MPIEdit实用程序逐一介绍在Delphi中如何实现上述功能。文本编辑器是一种常用的应用程序。用户在编辑器中编辑多种文件，在多个文件之间进行数据交换

2、，对文件进行各种属性设置，并按自己要求打印文件。4.1 多文本界面 多文本界面是一种在一个应用程序中同时打开两个或更多文件的界面形式。例如在字处理程序可同时打开多个文件，用户可在多个文件中方便地进行切换.MDI应用程序提供了一种方便的方式，使得用户在同一工作区域内对多个文档进行观察和交换数据。MDI工作区域可分为父窗体和子窗体，在Dephi的MDI应用程序中，父窗体通常是程序的主窗体。在MDI中，父窗体之外的窗体称为子窗体，文档或其它数据在子窗体打开。这些文档可以是相同的文件格式，或在应用程序支持下也可以是不同的文件格式。在设计阶段，可创建 MDI 父窗体作为应用程序主窗体，亦可创建子窗体样板

3、。Delphi允许创建多个子窗体类型，但MDI应用程序只支持其中的一种。本节讲述创建MDI应用程序的基本步骤：创建主窗口 创建子窗口 创建主窗口菜单 融合菜单 运行时创建子窗口 4.1.1 创建父窗口 在MDI应用程序中，主窗口为应用文档提供一个工作区域。这个区域可打开一个或多个子窗口，创建父窗口是建立MDI应用程序的第一步。创建父窗口与其它窗口类似，不同之处在于设置窗体的FormStyle属性。FormStyle属性可决定一个窗体是父窗口还是子窗口，或不是MDI类型。只能在设计阶段确定FormStyle。在Object 页码，1/21第四章 文本编辑器的设计（一）Inspector窗口中将F

4、ormStyle属性设置成fsMDIForm。值得注意的是应当把父窗口定义为应用程序的主窗体，否则程序编译会出错。4.1.2 创建子窗口 设计阶段可创建子窗口的样板，用户在运行进使用样板的实例。子窗口是缺省可见的，如果应用程序在运行进创建子窗口，不要让Delphi自动地创建。创建子窗口时将窗体的FormStyle属性设置为fsMDIChild。如果程序在运行时创建子窗口，则 1.选择OPtions|Project菜单，系统弹出自动创建列表对话框；2.在自动创建列表中选中子窗口；3.单击按钮将子窗口移至可得到(Available)窗体列表；4.并单击OK按钮退出。4.1.3 创建应用程序菜单与菜

5、单融合 父窗口的菜单应作为应用程序主菜单。如果子窗口有菜单，则当子窗口在运行获得焦点并最大化时，子窗口的菜单项将融合父窗口菜单。创建父窗口与子窗口菜单的方法与创建普通窗体菜单类似，详细步骤见第一章。菜单融合是指程序运行过程中，子菜单与父窗口菜单的相互作用。如当子窗口获得焦点时，子窗口的菜单或插入主窗口的菜单中，或将替换部分或全部的父窗口菜单。进行菜单融合需设置的两个属性：窗体的Menu属性 菜单项的GroupIndex属性 Menu属性定义窗体的活动菜单，而菜单融合只对活动菜单进行。如果窗体有多个菜单部件，运行时可通过以下代码进行改变：Form1.Menu:=SecondMenu;GroupI

6、ndex属性决定出现在菜单条中各菜单项的位置，在菜单融合中，GroupIndex 将 决定融合菜单是插入还是替换主窗体菜单条中的菜单。GroupIndex的缺省值是0，可以用下规则确定其值：1.数值越小，菜单的位置越靠左。例如：GroupIndex为0的菜单将出现在菜单条中的最左端。随着GroupIndex数值的增大，菜单项依次向右排列。2.若需替换主菜单中的某一菜单项，则将子菜单相应菜单项的GroupIndex设为与之相等的值。这条规则适合一个或多个菜单项。例如，主菜单中的Edit菜单项的GroupIndex 的值为1。将子菜单的一个或多个菜单项的GroupIndext的值设为1，则在运行时

7、，这些菜单项替换主窗口的Edit菜单。将同一窗体的多个菜单项的GroupIndex设为相同值，原有的排列顺序在菜单融合时将保持 不变。3.若要在菜单融合时插入菜单项，需在主菜单中预留数值“位置”。例如，主菜单的两菜单项数值为0,5，则子菜单GroupIndex数值为1,2,3,4的菜单在融合时将插入其中。在使用MDI界面时，用户通常会打开多个窗体。为了使用户方便地进行窗体切换，常设有一个进行切换的菜单项.此页码，2/21第四章 文本编辑器的设计（一）菜单列出了打开窗体的名称，当用户选择其中的一个时，程序进行相应的窗体切换。在Delphi的MDI设计时，可非常方便地实现这一功能。方法是将父窗口的

8、WindowMenu设置成该菜单项的名字即可。4.2 多页面界面 多页面界面是一种非常友好的界面形式。它由一个窗体和多个页面组成，关于每个页面的信息列在窗体底部的标签(Tabs)上，用户可通过选择标签来进行页面切换。每次只有一个页面显示在窗体中。MPI较MDI使用更为方便，且切换速度更快。本章例程就是多页面界面的例子。另外Delphi集成开发环境中的代码编辑(Code Editor)窗体是MPI应用在文本编辑中的实例。在MPI中，一个窗体内的多个文件可以方便地进行切换和交换数据。多页面界面分为静态MPI和动态MPI两种形式。静态MPI的标签数量固定，用户在事先设计好的多个页面上进行切换。象选择

9、对话框(Option Dialog)就属于静MPI。动态MPI的标签数量不固定，由程序根据需要动态的产生或消除，象代码编辑窗体就是动态MPI，程序可根据用户的需要产生多个文本页面，也可以动态地关闭页面。利用Delphi的TNotebook和Ttabset 可十分方便地设计静态MPI。设计动态MPI则需要编写专门的代码。4.2.1 静态多页面界面 TNotebook,TTabSet可用来开发静态多页面界面。TNotebook部件能显示多页，每页都有相应的控制。通常TNotebook与TTabset配合进行控制。TTabset 有一组水平的标签,每个标签可通过创建字符串列表进行某种控制。MPIED

10、it例程中的主窗体中有一个TNotebook 部件和 TTabSet 部件。把两个部件的Aglin属性设置成bsTop和bsBotton，使它们分别处在窗体的上下两部分。为了使TTabSet与TNotebook配合工作，使用下代码：TabSet1.Tabs:=Notebook1.Page;另外，在TabSet的OnClick事件中定义下如下代码，可使用户在选择标签时开打相应的页。procedure TEditForm.TabSetClick(Sender:TObject);begin Notebook1.PageIndex:=TabSet1.TabIndex;end;设计静态MPI时，可在部件

11、窗体(Component Palette)的WIN3。1页面中选中TNotebook 部件，然后在Object inspector窗体中双击TNotebook的Pages属性，Dephi 将弹出对话框，用户可以在此确定Notebook的页数和字符串列表，如图4.6。关闭对话框后，可对每一页进行设计，使用鼠标右按钮弹出快速菜单进行页面切换。4.2.2 动态多页面界面 使用Delphi进行静态MPI设计非常简单，进行动态MPI设计则需编写专门的代码。对 于一个多页面文本编辑器，应能实现以下功能：动态生成页面，每个页面均能进行文本编辑 动态关闭页面，直到窗体中只有一个页面为止 页面切换不影响各种文本

12、编辑操作 为了实现以上功能，程序中使用了动态页面类(TDynaPage)，其定义如下：type TDynaPage=Class(TObject);该类可根据需要动态的产生页面，每个页面上创建了可进行文本编辑的TMeno部件。procedure.页码，3/21第四章 文本编辑器的设计（一）puclic CurPage:integer;FileList:TSringList;end;CurPage表示当前用户选择的页面数，用户切换、增加、删除页面均影响CurPage 的值，CurPage初如化为零页。FileList存放打开或创建文件的名字以及与这些文件相关的编辑部件TMemo，页面动态创建、删除

13、将影响FilstList的值。TNotebook部件创建后至少有一个页面，因此Pages属性不是空值，只要往Pages中加入字符串，Delphi自动地把该字符串与TPage类对象相联系。TPage类是TCustomEdit派生出来的，在对象浏览器(Object Browse)中可观察到TPage的数据成员和方法。静态生成的页面也是 TPage类。要创建多页面编辑器，必须从TPage的父件(Parent属件)创建相应编辑部件。但在动态创建页面时，TPage只是一个与字符串相联系的TObject类，不能写成：MemoParent:=Notebook1.Pages.Object;在Delphi中，宣

14、称对象和创建对象都是用指针来标识，因此可用无类型指针进行指针传递。var Pi:Pointer;begin Pi:=Notebook1.Pages.Object;Memo.Parent:=Pi;end;这样就可在TPage上动态创建编辑部件了。往Notebook1中动态生成页面时，页面应所相应的切换，TDynaPage.Notebook1.Tabset1有关的属性要作相应的调整。TDynaPage的DynaAdd方法定义如下：procedure TDynaPage.DynaAdd(Sender:TNotebook;FileName:String);var Pi:Pointer;Memo:TMe

15、mo;begin Sender.Pages.add(FileName);Pi:=Sender.Pages.ObjectsSender.Pages.Count-1;DynaMemo(pi);DynaPage.FileList.addObject(FileName,Memo1);页码，4/21第四章 文本编辑器的设计（一）EditForm.TabSet1.Tabs:=Sender.Pages;EditForm.Tabset1.TabIndex:=Sender.Pages.Count-1;EditForm.Notebook1.PageIndex:=EditForm.Tabset1.TabIndex;

16、DynaPage.CurPage:=Sender.Pages.Count-1;end;procedure DynaMemo(Pi:Pointer);var Memo:TMemo;begin Memo:=TMemo.Create(Pi);Memo.Parent:=Pi;Memo.Align:=alClient;Memo.borderStyle:=bsNone;Memo.HideSelection:=False;Memo1:=Memo;end;procedure TDynaPage.Del(Sender:TNotebook;No:integer);var Pi:pointer;begin Send

17、er.Pages.delete(No);EditForm.TabSet1.Tabs.delete(No);Filelist.Delete(No);DynaPage.CurPage:=EditForm.TabSet1.TabIndex;Sender.PageIndex:=EditForm.Tabset1.TabIndex;Pi:=FileList.ObjectsDynaPage.CurPage;Memo1:=Pi;EditForm.Caption:=Sender.Pages.StringsDynaPage.CurPage;end;当用户在多个页面中进行切换时，程序应当保证对当前页面进行编辑。例如

18、在多页编辑器中，用户选中某一页页码，5/21第四章 文本编辑器的设计（一）面，即可对该页面中的文件进行编辑、寻找、设置、打印等。为了实现这一功能，定义了一个TMemo类型的变量：Memo1,该变量没有实例化，每次调用DynaAdd,DynaDel方法均定把TabIndex指定页面的Memo指针传给Memo1。这样在程序运行中，始终有一个实例化的Memo指针赋给Memo1，而菜单中的文本编辑功能均对Memo1进行操作。这种指针传递就能保证对当前页进行操作。定义了TDynaPage后，只需在Open,Close菜单项中加入如下代码，即可方便的在用户打开关闭文件时创建成删除页面。procedure

19、TEditForm.Close1Click(Sender:TObject);begin if DynaPage.CurPage0 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 OpenFi

20、le:=true;Open(OpenDialog1.FileName);Notebook1.Pages.Strings0:=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;页码

21、，6/21第四章 文本编辑器的设计（一）end;4.3 文本编辑部件及应用 4.3.1 TEdit 部件 TEdit部件是一个标准的编辑框，用户可在编辑框中输入数据。编辑框也可向用户显示数据。编辑时只能读写一行信息。TEdit的Text属性存放着用户输入的数据或向用户显示的数据，Modified属性用以标识 Text的数据是否改变，可通过设置Maxlength属性值来限制用户输入字符的个数量，CharCase 属性可定义编辑框中字符的大小写。如果设计者想禁止用户输入，可将ReadOnly属性设置成真值。编辑框也能用做密码输入框。通过设置PassWordChar 属性的值，可将用户输入的字符在编

22、辑框中显示成指定的字符，如*号等。编辑框还可以进行字符选择操作、粘贴、复制和剪切操作。4.3.2 TMemo 部件 TMemo部件与TEdit部件类似，能向用户显示数据，用户也可输入数据。与TEdit 部件 不同的是，TMemo部件可以处理多行文本，因此主要用于编辑文件。TMemo的Text属性只能在运行时才能访问。Modified属性用以标识Text的数据是否改 变，通过设置MaxLength属性值来限制用户输入字符的数量。如果把文本当成一个整体进行访问，可使用Text属性；若想逐行访问，则要使用Lines属性。Lines属性能对文件更方便地进行访问。Lines是TStrings类型的，因此

23、可使用Add、Delete方法，例如在Memo1中加入一行字符串的代码如下：Memo1.Lines.Add(Another line is added);通过Lines属性可以方便地把文件读入部件中，例程中使用下面的代码将文件读入Memo1：Memo1.Lines.loadFromFile(Filename).从TMemo 部件中剪切、复制、粘贴文本非常方便，只需使用 CutToclipboard，CopyToClipBroad,PasteFromClipBoard方法，其代码如下：Memo1.CopyToClipboard Memo1.CutToClipboard Memo1.PasteFr

24、omClipboard TMemo有一些属性，用以控制文本的显示效果。ScrollBars属性可以定义部件的水平滚动条和垂直滚动条。当文件字体改变时，使用AutoSize属性可使部件大小做相应的调整。设置WordWrap属性可以实现自动换行。例程中Edit|WordWrap菜单项提供了设置WordWrap的功能，并可根据WordWrap的值决定滚动条的形式。当WordWrap为真时，不需要水平滚动条，并在菜单中作出检查记号。其代码如下：procedure TEditForm.SetWordWrap(Sender:TObject);begin with Memo1 do begin 页码，7/2

25、1第四章 文本编辑器的设计（一）WordWrap:=not WordWrap;if WordWrap then ScrollBars:=ssVertical else ScrollBars:=ssBoth;WordWrap1.Checked:=WordWrap;end;SetEditRect;end;TMemo部件提供了一组关于选择文本的属性和方法。如果想在部件成为当前控件时自动选择文本，可设置 AutoSelect 属性。运行时可用SelectAll 方法选中部件的全部文本。Selstart属性返回选中文本的开始位置，SelText 包含着被选中的文本。SelLength属性返回选中文本的长

26、度，这两个属性可用于字符串的查找和替换。下一节将详细讨论。TMemo的Modified属性是一个运行时才能得到的属性，可判断部件被创建时或Modified属性最后一次设置成假值之后，部件上的文本是否修改。如果修改了，Modified 将设成真值，反之假值。例程中在关闭文件时将测试文件的modified属性，如果文件修改后尚未保存，将出现对话框，询问用户是否保存文件，其代码如下：procedure TEditForm.FormCloseQuery(Sender:TObject;var CanClose:Boolean);var DialogValue:Integer;FName:string;b

27、egin 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 常用对话框的使用 页码，8/21第四章 文本编辑器的设计（一）Delphi的可视部件类库(Vistual Component Liberty)中，有一组

28、对话框部件，在对象选择板的Dialog 页面中可以找到。本节着重介绍与文件编辑有关的字体对话框(TFontDialog Componement)，查找对话框(TFindDialog Componement)，替换对话框(TReplace Dialog Componement)，文件对开对话框(TOpenDIalog Componement).应用这几个对话框可对文件进行字体设置、查找、替换等操作，但需要编写相应的代码。4.4.1字体对话框部件 字体对话框部件在应用程序中产生字体对话框，用户可在对话框中进行字体选择和属性设置。用户选择字体并按下OK按钮之后，有关信息便贮存在部件的Font属性中。

29、应用程序可通过调用字体对话框的Execult方法来显示对话框，当用户选择OK按钮时，Execult返回True值，否则返回Flase值。应用程序可以使用Options属性来定义字体对话框的显示和行为方式：例如可在对话框中定义一个帮助按钮或指定出现在字体列表框中的字体。有关Options的主要取值如下表4.1：表4.1 字体对话框的Options取值及含义 取值 含义 AdAnsiOnly 如果是真值，只能使用Window字符集，fdEffects 如果是真值，对话框中显示颜色列表和效果检查框；用户可使 用效果检查框定义Strikout下划线文本；使用颜色列表定义字体 颜色。fdForceFon

30、tExise 如果是真值，用户在字体组合框中输入字体名后选择OK按钮，将出现一个用户字体无效的消息框。fdNoOEMFont 如果是真值，字体组合框中将不显示向量字体。fdShowHelp 如果是真值，对话框显示Help按按钮。fdWysiwyg 如果是真值，只有打印和屏幕均可得到的字体才会出现在字体 组合框中。例程中(Edit/Font)菜单具有设置文本字体的功能，其代码如下：procedure TEditForm.SetFont(Sender:TObject);begin FontDialog.Font:=Memo1.Font;if FontDialog1.Execult then 页码，

31、9/21第四章 文本编辑器的设计（一）Memo1.Fout:=FontDialog1.Font;SetEdit Rect;end;目录 上一页 下一页 Delphi园地 http:/ 第四章 文本编辑器的设计（二）第四章 文本编辑器的设计（二）4.4.2查找对话框部件 查找对话框部件为应用程序提供查找对话框，用户可使用查找对话框在文本文件中查找字符串。可用Execult方法显示查找对话框，如图4.8。应用程序要查找的字符放到FindText属性中。Options 属性可决定查找对话框中有哪些选项。例如，用户可选择是否显示匹配检查框。Options的常用选项如表4.2所示。如果用户在对话框中输入

32、字符并选择FindNext按钮，对话框将发生OnFind事件。表4.2 查找对话框的Options属性的取值及含义 取值 含义 frDown 如果是真值，对话框中出现Down按钮，查找方向向下。如果是假 值，Up按钮将被选中，查找方向向上，frDown 值可在设计或运行 时设置。frDisableUpDown 如果是真值，Up和Down按钮将变灰，用户不能进行选取；如果是 假值，用户可以选择其中之一。frFindNext 如果是真值，应用程序查找在FindNext属性中的字符串。frMatchCase 如果是真值，匹配检查框被选中。设计、运行时均可设置。frWholeWord 如果是真值，整字

33、匹配检查框被选中，设计、运行时均可设置。在OnFind事件中可使用Options属性来决定以何种方式查找。Find方法响应查找对话框的OnFind事件。procedure TEditform.Find(Sender:TObject);begin with Sender as TFindDialog do if not SearchMemo(Memo1,FindText,Options)then ShowMessage(Cannot find +FindText+.);页码，10/21第四章 文本编辑器的设计（一）end;其中SearchMemo函数是Search单元中定义的，SearchMem

34、o可在TEdit,TMemo，以及其它TCustomEdit派生类中查找指定的字符串。查找从控件的脱字号()开始，查找方式由Options决定。如果向后查找从控件的StlStart处开始，如果向前查找则从控件的SelEnd处查找。如果在控件中找到相匹配的字符串，则字符串被选中，函数返回真值。如无匹配的字符串，函数返回假值。特别注意的是TEdit,TMemo中有一个HideSeletion属性，它决定当焦点从该控制转移至其它控制时，被选中的字符是否保持被选中的状态。如果是真值，则只有获得焦点才能保持被选中状态。查找时，焦点在查找对话框上，因此要想了解查找情况，必须将HideSeletion设成假

35、值。控制的缺省值为真值。SearchMemo代码如下：unit Search;interface uses WinProcs,SysUtils,StdCtrls,Dialogs;const WordDelimiters:set of Char=#0.#255-a.z,A.Z,1.9,0;function SearchMemo(Memo:TCustomEdit;const SearchString:String;Options:TFindOptions):Boolean;function SearchBuf(Buf:PChar;BufLen:Integer;SelStart,SelLength:

36、Integer;SearchString:String;Options:TFindOptions):PChar;implementation function SearchMemo(Memo:TCustomEdit;const SearchString:String;Options:TFindOptions):Boolean;var Buffer,P:PChar;Size:Word;begin Result:=False;if(Length(SearchString)=0)then Exit;Size:=Memo.GetTextLen;页码，11/21第四章 文本编辑器的设计（一）if(Siz

37、e=0)then Exit;Buffer:=StrAlloc(Size+1);try Memo.GetTextBuf(Buffer,Size+1);P:=SearchBuf(Buffer,Size,Memo.SelStart,Memo.SelLength,SearchString,Options);if P nil then begin Memo.SelStart:=P-Buffer;Memo.SelLength:=Length(SearchString);Result:=True;end;finally StrDispose(Buffer);end;end;function SearchBu

38、f(Buf:PChar;BufLen:Integer;SelStart,SelLength:Integer;SearchString:String;Options:TFindOptions):PChar;var SearchCount,I:Integer;C:Char;Direction:Shortint;CharMap:array Char of Char;function FindNextWordStart(var BufPtr:PChar):Boolean;begin (True XOR N)is equivalent to(not N)Result:=False;(False XOR

39、N)is equivalent to(N)页码，12/21第四章 文本编辑器的设计（一）When Direction is forward(1),skip non delimiters,then skip delimiters.When Direction is backward(-1),skip delims,then skip non delims while(SearchCount 0)and(Direction=1)xor(BufPtr in WordDelimiters)do begin Inc(BufPtr,Direction);Dec(SearchCount);end;while

40、(SearchCount 0)and(Direction=-1)xor(BufPtr in WordDelimiters)do begin Inc(BufPtr,Direction);Dec(SearchCount);end;Result:=SearchCount 0;if Direction=-1 then begin back up one char,to leave ptr on first non delim Dec(BufPtr,Direction);Inc(SearchCount);end;end;begin Result:=nil;if BufLen=0 then Exit;if

41、 frDown in Options then 页码，13/21第四章 文本编辑器的设计（一）begin Direction:=1;Inc(SelStart,SelLength);start search past end of selection SearchCount:=BufLen-SelStart-Length(SearchString);if SearchCount BufLen then Exit;end else begin Direction:=-1;Dec(SelStart,Length(SearchString);SearchCount:=SelStart;end;if(S

42、elStart BufLen)then Exit;Result:=BufSelStart;Using a Char map array is faster than calling AnsiUpper on every character for C:=Low(CharMap)to High(CharMap)do CharMapC:=C;if not(frMatchCase in Options)then begin AnsiUpperBuff(PChar(CharMap),sizeof(CharMap);AnsiUpperBuff(SearchString1,Length(SearchStr

43、ing);end;while SearchCount 0 do begin if frWholeWord in Options then 页码，14/21第四章 文本编辑器的设计（一）if not FindNextWordStart(Result)then Break;I:=0;while(CharMapResultI=SearchStringI+1)do begin Inc(I);if I=Length(SearchString)then begin if(not(frWholeWord in Options)or(SearchCount=0)or(ResultI in WordDelimi

44、ters)then Exit;Break;end;end;Inc(Result,Direction);Dec(SearchCount);end;Result:=nil;end;end.4.4.3 替换对话框部件 替换对话框部件为应用程序提供替换对话框。如图4.9。它包括查找对话框的所有功能，此外还允许使用者更换被选中的字符串。FindText 属性是应用程序需查找的字符串。ReplaceText属性是被选中字符的替换字符串。Options 属性决定对话框的显示方式。其值如表4.3所示。与查找对话框一样，替换对话框亦有OnFind 事件。用户输入查找字符串并按FindNext按钮时，发生OnFi

45、nd 事件。用户选择Replace 或ReplacAll 时，对话框发生OnRelpace事件，要替换的字符串存入ReplaceText属性中，要编写相应的代码以支持替换功能。表4.3 替换对话框的Options属性的取值及含义 取值 含义 frRelpace 如果是真值，应用程序将ReplaceText 属性中的字符串替换 页码，15/21第四章 文本编辑器的设计（一）FindText属性中的字符串。frReplacAll 如果是真值，应用程序将ReplaceText属性中的字符串替换，查找到的所有FindText属性中的字符串。例程中TEditForm.Replace方法响应OnRepla

46、ce事件，Replace方法首先判断控制中被 选中字符串是否与替换字符串相等，如果不等则进行替换。而后根据Options中的方式循 环进行查找替换。直至无匹配字符串为止。其代码如下：procedure TEditForm.Replace(Sender:TObject);var Found:Boolean;begin with ReplaceDialog1 do begin if AnsiCompareText(Memo1.SelText,FindText)=0 then Memo1.SelText:=ReplaceText;Found:=SearchMemo(Memo1,FindText,Op

47、tions);while Found and(frReplaceAll in Options)do begin Memo1.SelText:=ReplaceText;Found:=SearchMemo(Memo1,FindText,Options);end;if(not Found)and(frReplace in Options)then ShowMessage(Cannot find +FindText+.);end;end;4.4.4 打开对话框部件 打开对话框部件为应用程序显示打开对话框。使用Execute方法可显示打开对话框用户通过选择文件类型下拉框中的文件类型，可以确定显示在文件列

48、表中的文件。例如，如果用户选择*.txt文件类型，那么只有在当前目录下的文本文件才会显示在文件列表中。文件扩展名通常也称为过滤器。打开对话框包含一个Filters(过滤器)的属性，它可确定文件类型和在文件类型下拉框中的顺序。应用程序可以为打开对话框定义多个过滤器，对话框的FilterIndex 属性可以决定哪个过滤器是文件类型下拉框中的缺省过滤器。如FilterIndex等于2，表示程序运行时出现在文件类型下拉框的过滤器是第2个过滤器。页码，16/21第四章 文本编辑器的设计（一）例程中关于文件打开的代码如下：procedure TEditForm.Open/Click(Sender:TObj

49、ect);begin if OpenDialog/.Execult then begin Open(Open Dialog/.FileName)end end;打开，保存对话框中的Options属性值见表4.4 表4.4 打开、保存对话框的Options属性取值及含义 值 含义 ofAllowMultiSelect 如果是真值，则允许在文件名列表中选择多个文件。ofCreatePrompt 如果是真值，当用户在文件编辑框中输入一不存在的文件名，并选择OK按钮，则会出现消息框，提示用户此文件不存在并 询问是否以此文件名创建一新文件。ofExiengronDifferent 如果是真值，从对话框中

50、返回的文件扩展名将不同于缺省扩展名。其值存入DefaultExt属性中。ofFileMustExist 如果是真值，当用户在文件编辑框中输入一个不存在的文件名时，并选择OK按钮，则会出现一消息框提示用户此文件不存，并询 问是否输入了正确的路径和文件名。ofNoChangeDir 如果是真值，当前目录将设置成对话框第一次出现的目录，并忽 略任何目录改变。ofOverWritePrompt 如果是真值，当用户试图保存一个已存在的文件时，将出现一消息 框，提示用户此文件已存在，并询问是否覆盖。ofPathMastExit 如果是真值，用户在文件名编辑框只能输入有效路径名，否则出 现消息框，提示用户路