第四章　文本編輯器的設計

　　本章介紹多文本界面(MDI)、多頁面界面(MPI)技術;VCL庫中TMemo，TEdit 控件以及有關文本編輯的常用對話框的使用。我們開發的MPIEdit.dpr是一個文本編輯的實用程序，可實現如下功能：

　　● MDI的編輯環境

　　● MPI的編輯環境

　　● 創建打開、編輯、保存文件

　　● 查找、替換文件中指定的字符串

　　● 復制、粘貼、剪切字符串

　　● 設置文件字體大小

　　● 打印文件

　　本章將通過MPIEdit實用程序逐一介紹在Delphi中如何實現上述功能。

　　文本編輯器是一種常用的應用程序。用戶在編輯器中編輯多種文件，在多個文件之間進行數據交換，對文件進行各種屬性設置，并按自己要求打印文件。

　　4.1 多文本界面

　　多文本界面是一種在一個應用程序中同時打開兩個或更多文件的界面形式。例如在字處理程序可同時打開多個文件，用戶可在多個文件中方便地進行切換.

　　MDI應用程序提供了一種方便的方式，使得用戶在同一工作區域內對多個文檔進行觀察和交換數據。MDI工作區域可分為父窗體和子窗體，在Dephi的MDI應用程序中，父窗體通常是程序的主窗體。

　　在MDI中，父窗體之外的窗體稱為子窗體，文檔或其它數據在子窗體打開。這些文檔可以是相同的文件格式，或在應用程序支持下也可以是不同的文件格式。

　　在設計階段，可創建 MDI 父窗體作為應用程序主窗體， 亦可創建子窗體樣板。Delphi允許創建多個子窗體類型，但MDI應用程序只支持其中的一種。

　　本節講述創建MDI應用程序的基本步驟：

　　● 創建主窗口

　　● 創建子窗口

　　● 創建主窗口菜單

　　● 融合菜單

　　● 運行時創建子窗口

　　4.1.1 創建父窗口

　　在MDI應用程序中，主窗口為應用文檔提供一個工作區域。這個區域可打開一個或多個子窗口，創建父窗口是建立MDI應用程序的第一步。

　　創建父窗口與其它窗口類似，不同之處在于設置窗體的FormStyle屬性。

　　FormStyle屬性可決定一個窗體是父窗口還是子窗口，或不是MDI類型。 只能在設計階段確定FormStyle。在Object Inspector窗口中將FormStyle屬性設置成fsMDIForm。值得注意的是應當把父窗口定義為應用程序的主窗體，否則程序編譯會出錯。

　　4.1.2 創建子窗口

　　設計階段可創建子窗口的樣板，用戶在運行進使用樣板的實例。子窗口是缺省可見的，如果應用程序在運行進創建子窗口，不要讓Delphi自動地創建。

　　創建子窗口時將窗體的FormStyle屬性設置為fsMDIChild。如果程序在運行時創建子窗口，則

　　1. 選擇OPtions|Project菜單，系統彈出自動創建列表對話框;

　　2. 在自動創建列表中選中子窗口;

　　3. 單擊>按鈕將子窗口移至可得到(Available)窗體列表;

　　4. 并單擊OK按鈕退出。

　　4.1.3 創建應用程序菜單與菜單融合

　　父窗口的菜單應作為應用程序主菜單。如果子窗口有菜單， 則當子窗口在運行獲得焦點并最大化時，子窗口的菜單項將融合父窗口菜單。

　　創建父窗口與子窗口菜單的方法與創建普通窗體菜單類似， 詳細步驟見第一章。菜單融合是指程序運行過程中，子菜單與父窗口菜單的相互作用。 如當子窗口獲得焦點時，子窗口的菜單或插入主窗口的菜單中，或將替換部分或全部的父窗口菜單。

　　進行菜單融合需設置的兩個屬性：

　　● 窗體的Menu屬性

　　● 菜單項的GroupIndex屬性

　　Menu屬性定義窗體的活動菜單，而菜單融合只對活動菜單進行。如果窗體有多個菜單部件，運行時可通過以下代碼進行改變：

　　Form1.Menu := SecondMenu;

　　GroupIndex屬性決定出現在菜單條中各菜單項的位置，在菜單融合中，GroupIndex 將

　　決定融合菜單是插入還是替換主窗體菜單條中的菜單。

　　GroupIndex的缺省值是0，可以用下規則確定其值：

　　1. 數值越小，菜單的位置越靠左。

　　例如：GroupIndex為0的菜單將出現在菜單條中的最左端。隨著GroupIndex數值的增大，菜單項依次向右排列。

　　2. 若需替換主菜單中的某一菜單項，則將子菜單相應菜單項的GroupIndex設為與之相等的值。這條規則適合一個或多個菜單項。例如，主菜單中的"Edit"菜單項的GroupIndex 的值為1。將子菜單的一個或多個菜單項的GroupIndext的值設為1，則在運行時，這些菜單項替換主窗口的"Edit"菜單。來源：www.top-99.com.cn

　　將同一窗體的多個菜單項的GroupIndex設為相同值，原有的排列順序在菜單融合時將保持不變。

　　3. 若要在菜單融合時插入菜單項，需在主菜單中預留數值“位置”。例如，主菜單的兩菜單項數值為0,5，則子菜單GroupIndex數值為1,2,3,4的菜單在融合時將插入其中。

　　在使用MDI界面時，用戶通常會打開多個窗體。為了使用戶方便地進行窗體切換，常設有一個進行切換的菜單項.此菜單列出了打開窗體的名稱，當用戶選擇其中的一個時，程序進行相應的窗體切換。在Delphi的MDI設計時，可非常方便地實現這一功能。方法是將父窗口的WindowMenu設置成該菜單項的名字即可。

　　4.2 多頁面界面

　　多頁面界面是一種非常友好的界面形式。它由一個窗體和多個頁面組成， 關于每個頁面的信息列在窗體底部的標簽(Tabs)上，用戶可通過選擇標簽來進行頁面切換。 每次只有一個頁面顯示在窗體中。MPI較MDI使用更為方便，且切換速度更快。本章例程就是多頁面界面的例子。另外Delphi集成開發環境中的代碼編輯(Code Editor)窗體是MPI應用在文本編輯中的實例。在MPI中，一個窗體內的多個文件可以方便地進行切換和交換數據。

　　多頁面界面分為靜態MPI和動態MPI兩種形式。靜態MPI的標簽數量固定，用戶在事先設計好的多個頁面上進行切換。象選擇對話框(Option Dialog)就屬于靜MPI。動態MPI的標簽數量不固定，由程序根據需要動態的產生或消除，象代碼編輯窗體就是動態MPI，程序可根據用戶的需要產生多個文本頁面，也可以動態地關閉頁面。利用Delphi的TNotebook和Ttabset 可十分方便地設計靜態MPI。設計動態MPI則需要編寫專門的代碼。

　　4.2.1 靜態多頁面界面

　　TNotebook,TTabSet可用來開發靜態多頁面界面。TNotebook部件能顯示多頁， 每頁都有相應的控制。通常TNotebook與TTabset配合進行控制。TTabset 有一組水平的標簽,每個標簽可通過創建字符串列表進行某種控制。

　　MPIEDit例程中的主窗體中有一個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時，可在部件窗體(Component Palette)的WIN3。1頁面中選中TNotebook 部件，然后在Object inspector窗體中雙擊TNotebook的Pages屬性，Dephi 將彈出對話框，用戶可以在此確定Notebook的頁數和字符串列表，如圖4.6。關閉對話框后， 可對每一頁進行設計，使用鼠標右按鈕彈出快速菜單進行頁面切換。

　　4.2.2 動態多頁面界面

　　使用Delphi進行靜態MPI設計非常簡單，進行動態MPI設計則需編寫專門的代碼。 對于一個多頁面文本編輯器，應能實現以下功能：

　　● 動態生成頁面，每個頁面均能進行文本編輯

　　● 動態關閉頁面，直到窗體中只有一個頁面為止

　　● 頁面切換不影響各種文本編輯操作

　　為了實現以上功能，程序中使用了動態頁面類(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 := Notebook1.Pages.Object[ ];

　　在Delphi中，宣稱對象和創建對象都是用指針來標識， 因此可用無類型指針進行指針傳遞。

　　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:TMemo;

　　begin

　　Sender.Pages.add(FileName);

　　Pi:= Sender.Pages.Objects[Sender.Pages.Count-1];

　　DynaMemo(pi);

　　DynaPage.FileList.addObject(FileName,Memo1);

　　EditForm.TabSet1.Tabs := Sender.Pages;

　　EditForm.Tabset1.TabIndex:=Sender.Pages.Count-1;

　　EditForm.Notebook1.PageIndex := EditForm.Tabset1.TabIndex;

　　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

　　Sender.Pages.delete(No);

　　EditForm.TabSet1.Tabs.delete(No);

　　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;