2011計(jì)算機(jī)等級考試Delphi講義：字符串列表應(yīng)用

　　第四章　文本編輯器的設(shè)計(jì)

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

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

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

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

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

　　● 復(fù)制、粘貼、剪切字符串

　　● 設(shè)置文件字體大小

　　● 打印文件

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

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

　　4.1 多文本界面

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

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

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

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

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

　　● 創(chuàng)建主窗口

　　● 創(chuàng)建子窗口

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

　　● 融合菜單

　　● 運(yùn)行時創(chuàng)建子窗口

　　4.1.1 創(chuàng)建父窗口

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

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

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

　　4.1.2 創(chuàng)建子窗口

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

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

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

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

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

　　4. 并單擊OK按鈕退出。

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

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

　　創(chuàng)建父窗口與子窗口菜單的方法與創(chuàng)建普通窗體菜單類似， 詳細(xì)步驟見第一章。菜單融合是指程序運(yùn)行過程中，子菜單與父窗口菜單的相互作用。 如當(dāng)子窗口獲得焦點(diǎn)時，子窗口的菜單或插入主窗口的菜單中，或?qū)⑻鎿Q部分或全部的父窗口菜單。

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

　　● 窗體的Menu屬性

　　● 菜單項(xiàng)的GroupIndex屬性

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

　　Form1.Menu := SecondMenu;

　　GroupIndex屬性決定出現(xiàn)在菜單條中各菜單項(xiàng)的位置，在菜單融合中，GroupIndex 將

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

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

　　1. 數(shù)值越小，菜單的位置越靠左。

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

　　2. 若需替換主菜單中的某一菜單項(xiàng)，則將子菜單相應(yīng)菜單項(xiàng)的GroupIndex設(shè)為與之相等的值。這條規(guī)則適合一個或多個菜單項(xiàng)。例如，主菜單中的"Edit"菜單項(xiàng)的GroupIndex 的值為1。將子菜單的一個或多個菜單項(xiàng)的GroupIndext的值設(shè)為1，則在運(yùn)行時，這些菜單項(xiàng)替換主窗口的"Edit"菜單。來源：m.1glr.cn

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

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

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

　　4.2 多頁面界面

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

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

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

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

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

　　TabSet1.Tabs := Notebook1.Page;

　　另外，在TabSet的OnClick事件中定義下如下代碼，可使用戶在選擇標(biāo)簽時開打相應(yīng)的頁。

　　procedure TEditForm.TabSetClick(Sender : TObject);…

　　begin

　　Notebook1.PageIndex := TabSet1.TabIndex;

　　…

　　end;

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

　　4.2.2 動態(tài)多頁面界面

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

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

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

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

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

　　type TDynaPage = Class(TObject);

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

　　procedure...

　　puclic

　　CurPage : integer;

　　FileList : TSringList;

　　end;

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

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

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

　　MemoParent := Notebook1.Pages.Object[ ];

　　在Delphi中，宣稱對象和創(chuàng)建對象都是用指針來標(biāo)識， 因此可用無類型指針進(jìn)行指針傳遞。

　　var

　　Pi : Pointer;

　　begin

　　Pi := Notebook1.Pages.Object[];

　　Memo.Parent := Pi;

　　end;

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

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

　　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;