Delphi文本编辑器的设计（一）

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

上一篇： Delphi文本编辑器的设计（二）
下一篇： Delphi 文本编辑器的设计（三）

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!