知识大全文本编辑器的设计（一）[2]

Posted 2022-07-22 编辑

篇首语：万事须己运，他得非我贤。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全文本编辑器的设计（一）[2]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：文本编辑器的设计（一）[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　为了实现以上功能程序中使用了动态页面类（TDynaPage）其定义如下

　　type TDynaPage = Class（TObject）

　　该类可根据需要动态的产生页面每个页面上创建了可进行文本编辑的TMeno部件

　　procedure…

　　puclic

　　CurPage : integer;

　　FileList : TSringList;

　　end;

　　CurPage表示当前用户选择的页面数用户切换增加删除页面均影响CurPage 的值 CurPage初如化为零页 FileList存放打开或创建文件的名字以及与这些文件相关的编辑部件TMemo 页面动态创建删除将影响FilstList的值

　　TNotebook部件创建后至少有一个页面因此Pages属性不是空值只要往Pages中加入字符串 Delphi自动地把该字符串与TPage类对象相联系 TPage类是TCustomEdit派生出来的在对象浏览器（Object Browse）中可观察到TPage的数据成员和方法静态生成的页面也是 TPage类

　　要创建多页面编辑器必须从TPage的父件（Parent属件）创建相应编辑部件但在动态创建页面时 TPage只是一个与字符串相联系的TObject类不能写成

　　MemoParent := Notebook Pages Object[ ];

　　在Delphi中宣称对象和创建对象都是用指针来标识因此可用无类型指针进行指针传递

　　var

　　Pi : Pointer;

　　begin

　　Pi := Notebook Pages Object[];

　　Memo Parent := Pi;

　　end;

　　这样就可在TPage上动态创建编辑部件了

　　往Notebook 中动态生成页面时页面应所相应的切换 TDynaPage Notebook Tabset 有关的属性要作相应的调整

　　TDynaPage的DynaAdd方法定义如下

　　procedure TDynaPage DynaAdd（Sender:TNotebook;FileName:String）

　　var

　　Pi:Pointer;

　　Memo:TMemo;

　　begin

　　Sender Pages add（FileName）

　　Pi:= Sender Pages Objects[Sender Pages Count ];

　　DynaMemo（pi）

　　DynaPage FileList addObject（FileName Memo ）

　　EditForm TabSet Tabs := Sender Pages;

　　EditForm Tabset TabIndex:=Sender Pages Count ;

　　EditForm Notebook PageIndex := EditForm Tabset TabIndex;

　　DynaPage CurPage:= Sender Pages Count ;

　　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;

　　Memo :=Memo;

　　end;

　　procedure TDynaPage Del（Sender:TNotebook;No:integer）

　　var

　　Pi:pointer;

　　begin

　　Sender Pages delete（No）

　　EditForm TabSet Tabs delete（No）

　　Filelist Delete（No）

　　DynaPage CurPage:=EditForm TabSet TabIndex;

　　Sender PageIndex := EditForm Tabset TabIndex;

　　Pi:=FileList Objects[DynaPage CurPage];

　　Memo :=Pi;

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

　　end;

　　当用户在多个页面中进行切换时程序应当保证对当前页面进行编辑例如在多页编辑器中用户选中某一页面即可对该页面中的文件进行编辑寻找设置打印等为了实现这一功能定义了一个TMemo类型的变量 Memo 该变量没有实例化每次调用DynaAdd DynaDel方法均定把TabIndex指定页面的Memo指针传给Memo 这样在程序运行中始终有一个实例化的Memo指针赋给Memo 而菜单中的文本编辑功能均对Memo 进行操作这种指针传递就能保证对当前页进行操作

　　定义了TDynaPage后只需在Open Close菜单项中加入如下代码即可方便的在用户打开关闭文件时创建成删除页面

　　procedure TEditForm Close Click（Sender: TObject）

　　begin

　　if DynaPage CurPage<> then

　　DynaPage Del（Notebook DynaPage CurPage）

　　if Notebook Pages count = then

　　Close Enabled:=False;

　　end;

　　procedure TEditForm Open Click（Sender: TObject）

　　begin

　　if OpenDialog Execute then

　　begin

　　if not（OpenFile or NewFile） then

　　begin

　　OpenFile:=true;

　　Open（OpenDialog FileName）

　　Notebook Pages Strings[ ]:=ExtractFileName（ OpenDialog FileName）

　　TabSet Tabs:=Notebook Pages;

　　end

　　else

　　begin

　　DynaPage DynaAdd（ Notebook ExtractFileName（OpenDialog FileName））

　　Open（OpenDialog Filename）

　　if Notebook Pages count > then

　　Close Enabled:=True;

　　end;

　　 文本编辑部件及应用

　　 TEdit 部件

　　TEdit部件是一个标准的编辑框用户可在编辑框中输入数据编辑框也可向用户显示数据编辑时只能读写一行信息

　　TEdit的Text属性存放著用户输入的数据或向用户显示的数据 Modified属性用以标识 Text的数据是否改变可通过设置Maxlength属性值来限制用户输入字符的个数量 CharCase

　　属性可定义编辑框中字符的大小写如果设计者想禁止用户输入可将ReadOnly属性设置成真值编辑框也能用做密码输入框通过设置PassWordChar 属性的值可将用户输入的字符在编辑框中显示成指定的字符如 * 号等编辑框还可以进行字符选择操作粘贴复制和剪切操作

cha138/Article/program/Delphi/201311/25255

知识大全 文本编辑器的设计（一）[2]

知识大全文本编辑器的设计（一）[2]