第四章 文本编辑器的设计（一）(5)

Filelist.Delete(No);

DynaPage.CurPage:=EditForm.TabSet1.TabIndex;

Sender.PageIndex

EditForm.Tabset1.TabIndex;

Pi:=FileList.Objects[DynaPage.CurPage]; Memo1:=Pi;

EditForm.Caption:=Sender.Pages.Strings[DynaPage.CurPage]; end;

:=

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

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 文本编辑部件及应用 4.3.1 TEdit 部件

TEdit部件是一个标准的编辑框，用户可在编辑框中输入数据。编辑框也可向用户显示数据。编辑时只能读写一行信息。 TEdit的Text属性存放着用户输入的数据或向用户显示的数据，Modified属性用以标识 Text的数据是否改变，可通过设置Maxlength属性值来限制用户输入字符的个数量，CharCase