2011計算機等級考試Delphi：文本編輯器的設計

　　第四章　文本編輯器的設計

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

　　● MDI的編輯環(huán)境

　　● MPI的編輯環(huán)境

　　● 創(chuàng )建打開(kāi)、編輯、保存文件

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

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

　　● 設置文件字體大小

　　● 打印文件

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

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

　　4.1 多文本界面

　　多文本界面是一種在一個(gè)應用程序中同時(shí)打開(kāi)兩個(gè)或更多文件的界面形式。例如在字處理程序可同時(shí)打開(kāi)多個(gè)文件，用戶(hù)可在多個(gè)文件中方便地進(jìn)行切換.

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

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

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

　　本節講述創(chuàng )建MDI應用程序的基本步驟：

　　● 創(chuàng )建主窗口

　　● 創(chuàng )建子窗口

　　● 創(chuàng )建主窗口菜單

　　● 融合菜單

　　● 運行時(shí)創(chuàng )建子窗口

　　4.1.1 創(chuàng )建父窗口

　　在MDI應用程序中，主窗口為應用文檔提供一個(gè)工作區域。這個(gè)區域可打開(kāi)一個(gè)或多個(gè)子窗口，創(chuàng )建父窗口是建立MDI應用程序的第一步。

　　創(chuàng )建父窗口與其它窗口類(lèi)似，不同之處在于設置窗體的FormStyle屬性。

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

　　4.1.2 創(chuàng )建子窗口

　　設計階段可創(chuàng )建子窗口的樣板，用戶(hù)在運行進(jìn)使用樣板的實(shí)例。子窗口是缺省可見(jiàn)的，如果應用程序在運行進(jìn)創(chuàng )建子窗口，不要讓Delphi自動(dòng)地創(chuàng )建。

　　創(chuàng )建子窗口時(shí)將窗體的FormStyle屬性設置為fsMDIChild。如果程序在運行時(shí)創(chuàng )建子窗口，則

　　1. 選擇OPtions|Project菜單，系統彈出自動(dòng)創(chuàng )建列表對話(huà)框;

　　2. 在自動(dòng)創(chuàng )建列表中選中子窗口;

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

　　4. 并單擊OK按鈕退出。

　　4.1.3 創(chuàng )建應用程序菜單與菜單融合

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

　　創(chuàng )建父窗口與子窗口菜單的方法與創(chuàng )建普通窗體菜單類(lèi)似， 詳細步驟見(jiàn)第一章。菜單融合是指程序運行過(guò)程中，子菜單與父窗口菜單的相互作用。 如當子窗口獲得焦點(diǎn)時(shí)，子窗口的菜單或插入主窗口的菜單中，或將替換部分或全部的父窗口菜單。

　　進(jìn)行菜單融合需設置的兩個(gè)屬性：

　　● 窗體的Menu屬性

　　● 菜單項的GroupIndex屬性

　　Menu屬性定義窗體的活動(dòng)菜單，而菜單融合只對活動(dòng)菜單進(jìn)行。如果窗體有多個(gè)菜單部件，運行時(shí)可通過(guò)以下代碼進(jìn)行改變：

　　Form1.Menu := SecondMenu;

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

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

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

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

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

　　2. 若需替換主菜單中的某一菜單項，則將子菜單相應菜單項的GroupIndex設為與之相等的值。這條規則適合一個(gè)或多個(gè)菜單項。例如，主菜單中的"Edit"菜單項的GroupIndex 的值為1。將子菜單的一個(gè)或多個(gè)菜單項的GroupIndext的值設為1，則在運行時(shí)，這些菜單項替換主窗口的"Edit"菜單。來(lái)源：hfcegau.cn

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

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

　　在使用MDI界面時(shí)，用戶(hù)通常會(huì )打開(kāi)多個(gè)窗體。為了使用戶(hù)方便地進(jìn)行窗體切換，常設有一個(gè)進(jìn)行切換的菜單項.此菜單列出了打開(kāi)窗體的名稱(chēng)，當用戶(hù)選擇其中的一個(gè)時(shí)，程序進(jìn)行相應的窗體切換。在Delphi的MDI設計時(shí)，可非常方便地實(shí)現這一功能。方法是將父窗口的WindowMenu設置成該菜單項的名字即可。

　　4.2 多頁(yè)面界面

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

　　多頁(yè)面界面分為靜態(tài)MPI和動(dòng)態(tài)MPI兩種形式。靜態(tài)MPI的標簽數量固定，用戶(hù)在事先設計好的多個(gè)頁(yè)面上進(jìn)行切換。象選擇對話(huà)框(Option Dialog)就屬于靜MPI。動(dòng)態(tài)MPI的標簽數量不固定，由程序根據需要動(dòng)態(tài)的產(chǎn)生或消除，象代碼編輯窗體就是動(dòng)態(tài)MPI，程序可根據用戶(hù)的需要產(chǎn)生多個(gè)文本頁(yè)面，也可以動(dòng)態(tài)地關(guān)閉頁(yè)面。利用Delphi的TNotebook和Ttabset 可十分方便地設計靜態(tài)MPI。設計動(dòng)態(tài)MPI則需要編寫(xiě)專(zhuān)門(mén)的代碼。

　　4.2.1 靜態(tài)多頁(yè)面界面

　　TNotebook,TTabSet可用來(lái)開(kāi)發(fā)靜態(tài)多頁(yè)面界面。TNotebook部件能顯示多頁(yè)， 每頁(yè)都有相應的控制。通常TNotebook與TTabset配合進(jìn)行控制。TTabset 有一組水平的標簽,每個(gè)標簽可通過(guò)創(chuàng )建字符串列表進(jìn)行某種控制。

　　MPIEDit例程中的主窗體中有一個(gè)TNotebook 部件和 TTabSet 部件。 把兩個(gè)部件的Aglin屬性設置成bsTop和bsBotton，使它們分別處在窗體的上下兩部分。為了使TTabSet與TNotebook配合工作，使用下代碼：

　　TabSet1.Tabs := Notebook1.Page;

　　另外，在TabSet的OnClick事件中定義下如下代碼，可使用戶(hù)在選擇標簽時(shí)開(kāi)打相應的頁(yè)。

　　procedure TEditForm.TabSetClick(Sender : TObject);…

　　begin

　　Notebook1.PageIndex := TabSet1.TabIndex;

　　…

　　end;

　　設計靜態(tài)MPI時(shí)，可在部件窗體(Component Palette)的WIN3。1頁(yè)面中選中TNotebook 部件，然后在Object inspector窗體中雙擊TNotebook的Pages屬性，Dephi 將彈出對話(huà)框，用戶(hù)可以在此確定Notebook的頁(yè)數和字符串列表，如圖4.6。關(guān)閉對話(huà)框后， 可對每一頁(yè)進(jìn)行設計，使用鼠標右按鈕彈出快速菜單進(jìn)行頁(yè)面切換。

　　4.2.2 動(dòng)態(tài)多頁(yè)面界面

　　使用Delphi進(jìn)行靜態(tài)MPI設計非常簡(jiǎn)單，進(jìn)行動(dòng)態(tài)MPI設計則需編寫(xiě)專(zhuān)門(mén)的代碼。 對于一個(gè)多頁(yè)面文本編輯器，應能實(shí)現以下功能：

　　● 動(dòng)態(tài)生成頁(yè)面，每個(gè)頁(yè)面均能進(jìn)行文本編輯

　　● 動(dòng)態(tài)關(guān)閉頁(yè)面，直到窗體中只有一個(gè)頁(yè)面為止

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

　　為了實(shí)現以上功能，程序中使用了動(dòng)態(tài)頁(yè)面類(lèi)(TDynaPage)，其定義如下：

　　type TDynaPage = Class(TObject);

　　該類(lèi)可根據需要動(dòng)態(tài)的產(chǎn)生頁(yè)面， 每個(gè)頁(yè)面上創(chuàng )建了可進(jìn)行文本編輯的TMeno部件。

　　procedure...

　　puclic

　　CurPage : integer;

　　FileList : TSringList;

　　end;

　　CurPage表示當前用戶(hù)選擇的頁(yè)面數，用戶(hù)切換、增加、刪除頁(yè)面均影響CurPage 的值，CurPage初如化為零頁(yè)。FileList存放打開(kāi)或創(chuàng )建文件的名字以及與這些文件相關(guān)的編輯部件TMemo，頁(yè)面動(dòng)態(tài)創(chuàng )建、刪除將影響FilstList的值。

　　TNotebook部件創(chuàng )建后至少有一個(gè)頁(yè)面，因此Pages屬性不是空值，只要往Pages中加入字符串，Delphi自動(dòng)地把該字符串與TPage類(lèi)對象相聯(lián)系。TPage類(lèi)是TCustomEdit派生出來(lái)的，在對象瀏覽器(Object Browse)中可觀(guān)察到TPage的數據成員和方法。靜態(tài)生成的頁(yè)面也是 TPage類(lèi)。來(lái)源：考試大的美女編輯們

　　要創(chuàng )建多頁(yè)面編輯器，必須從TPage的父件(Parent屬件)創(chuàng )建相應編輯部件。但在動(dòng)態(tài)創(chuàng )建頁(yè)面時(shí)，TPage只是一個(gè)與字符串相聯(lián)系的TObject類(lèi)，不能寫(xiě)成：

　　MemoParent := Notebook1.Pages.Object[ ];

　　在Delphi中，宣稱(chēng)對象和創(chuàng )建對象都是用指針來(lái)標識， 因此可用無(wú)類(lèi)型指針進(jìn)行指針傳遞。

　　var

　　Pi : Pointer;

　　begin

　　Pi := Notebook1.Pages.Object[];

　　Memo.Parent := Pi;

　　end;

　　這樣就可在TPage上動(dòng)態(tài)創(chuàng )建編輯部件了。

　　往Notebook1中動(dòng)態(tài)生成頁(yè)面時(shí)，頁(yè)面應所相應的切換，TDynaPage. Notebook1.Tabset1有關(guān)的屬性要作相應的調整。

　　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;