国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

第一章　Delphi快速入門（五）

1.4.3.1 調(diào)用標準對話框　

         您可以發(fā)現(xiàn)，除了Font,Find,Replace對話框之外，其余標準對話框的Events頁都是空白的。因為它們本身是不可視的對話框形式，所以不能響應(yīng)標準的鼠標鍵盤操作，只能在程序中調(diào)用它們。在本章第一節(jié)的Demo程序中，我們已經(jīng)對用Color對話框有了了解，在程序的適當(dāng)位置加入對話框所屬的Execute方法，可以執(zhí)行標準對話框。

         在編制應(yīng)用程序時，您可以先設(shè)計好主菜單。在需要使用標準對話框的菜單項的事件處理過程中，調(diào)用標準對話框的Execute等方法，以滿足設(shè)計需求，即響應(yīng)菜單命令彈出標準對話框?！?/font>

1.4.3.2 OpenDialog和SaveDialog部件　

         OpenDialog(文件的打開)和SaveDialog(保存對話框)部件處理文件的打開與存儲，它們擁有完全相同的屬性域。DefaultExt屬性表示缺省擴展名。當(dāng)用戶沒有輸入文件的后綴時，可以為用戶文件自動加擴展名。FileName屬性指定出現(xiàn)在FileName正文框中的缺省文件名。Filter屬性提供了文件過濾器。FileEditStyle決定在輸入文件名時用Edit還是Combo- Box；設(shè)置為fsComboBox時，允許使用歷史列表HistoryList屬性，這在應(yīng)用程序需要經(jīng)常選擇文件時，可以節(jié)約大量的時間。HistoryList屬性保存有在File Name下拉式編輯框中顯示的文件名，使用[TStrings]的省略按鈕可以編輯歷史列表。您也可以編程實現(xiàn)將HistoryList屬性設(shè)為以前用OpenDialog打開的文件名歷史列表。下列程序段可以實現(xiàn)自動歷史文件名加載：　

if OpenDialog1.Execute then

OpenDialog1.HistoryList.Insert(0,OpenDialog1.FileName);　

1.4.3.3 ColorDialog和FontDialog　

      顏色對話框ColorDialog我們在前文的例程中已經(jīng)用過，其更詳細的功能如Options的設(shè)定請查閱在線幫助。

       字體對話框Font可以幫助用戶獲取各種方式的字體。使用OnApply事件，可以使得Font對話框中包含一個Apply按鈕，按動它，對話框中設(shè)定的字體會立即應(yīng)用到指定的對象中，而對話框仍然是打開的，這樣更便于觀察修改的結(jié)果。

        以下的例程在窗體中先放置一個按鈕Button1，調(diào)用字體對話框來改變按鈕上的Caption屬性顯示的字體：　

Procedure TForm1.Button1Click(Sender:TObject);

begin

FontDialog1.Execute;

end;　

Procedure TForm1.FontDlgApply(Sender:Tobject);

begin

Button1.Font:= FontDialog1.Font;

end;　

1.4.3.4 PrintDialog和PrintSetupDiaog　

       打印對話框PrintDialog和打印設(shè)置對話框PrintSetupDialog可以顯示標準打印、打印設(shè)置對話框，支持打印文件和打印設(shè)置功能，設(shè)置它的Options屬性可以規(guī)定對話框的表現(xiàn)形式　

1.4.3.5 FindDialog和ReplaceDialog　

        FindDialog和ReplaceDialog提供了查找、替換兩個對話框部件，對于尋找和替換文本是極其有用的。在FindDialog和ReplaceDialog中都有OnFind事件，當(dāng)用戶單擊尋找對話框中的Find Next按鈕時將觸發(fā)這一事件。FindText屬性中保存了用戶在Find What編輯框中輸入的文本。在ReplaceDialog中還有OnReplace事件，當(dāng)用戶單擊替換對話框中的Replace和Replace All按鈕時，將觸發(fā)OnReplace事件。FindText和ReplaceText屬性分別保存了用戶在Find What和Replace With編輯框中輸入的文本?！?/font>

1.5 使用Delphi的工程管理、設(shè)計工具　

       Delphi 2.0是完備的工程設(shè)計系統(tǒng)，除提供了大量的可視化編程部件和簡單方便的設(shè)計方法外，還備有功能強大的工程管理、窗口設(shè)計工具?！?/font>

1.5.1 創(chuàng)建多窗體工程項目　

       絕大多數(shù)的應(yīng)用程序都用到不只一個窗口，Delphi允許用戶創(chuàng)建多文檔界面(MDI)應(yīng)用程序。應(yīng)用自動創(chuàng)建窗體、窗體樣板、對話框?qū)＜摇?yīng)用專家等，可以使得創(chuàng)建應(yīng)用程序更為方便快捷，而且可重復(fù)利用，大大地降低了工作量。　

1.5.1.1 創(chuàng)建一個含有About框的例程　

     作為例子，我們先創(chuàng)建一個含主窗體和簡單的About框的應(yīng)用程序：

     在Delphi中創(chuàng)建一個新工程，并為空窗口增加一個Button部件。我們把它作為主窗體，目的是當(dāng)按動按鈕部件時，調(diào)出About窗口。下面我們直接進行About窗口的創(chuàng)制。

     選用主菜單的File|New項，在New頁中，選用Form樣板，Delphi會自動創(chuàng)建一個空窗體Form2。您可以在其上進行About框的設(shè)計，例如加入標簽以顯示各種信息、加入圖片幫助說明等。將Form2的BorderStyle屬性設(shè)置為bsDialog，則窗口成為運行時不能改變大小的對話框。

     下面編程實現(xiàn)主窗體對About框的顯示控制。很可能在設(shè)計時，兩個窗體出現(xiàn)重疊，Form1被About遮住。用Shift+F12產(chǎn)生View Form對話框，可以選擇窗口的名字，調(diào)出所需的窗體Form1，雙擊其上的按鈕部件，在事件處理過程加入以下的程序：　

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;　

        由于Form1窗體調(diào)用About窗體，所以必須在Form1的庫單元程序中對引用About進行說明。在Unit1的Uses后面加入About的庫單元名Unit2。運行程序，在主窗體上按動按鈕，可以出現(xiàn)About框。在框外單擊鼠標，會回到主窗體中。

        在About窗體中加入一個按鈕，并將按鈕的ModalResult屬性設(shè)置為mrOK，同時將按鈕的標簽的Caption改為OK。這樣一個有模式的About框已經(jīng)建成了。將窗體Form1中Button1的OnClick處理過程的代碼改變?nèi)缦拢骸?/font>

Form2.ShowModal; 　

       再運行程序，除了與上述功能相同顯示About對話框外，該程序只有當(dāng)用戶按動About框的按鈕或被About窗控制圖標關(guān)閉窗口后，才會回到主窗體中，而不能與第一個窗體發(fā)生交互行為。這就是方法Show和ShowModal的主要不同之處?！?/font>

1.5.1.2 指定自動創(chuàng)建窗體　

      上面我們簡單地生成了一個含About框的雙窗體應(yīng)用程序，運行時，應(yīng)用程序啟動時將自動創(chuàng)建第二個窗體。窗體保持隱蔽狀態(tài)，但仍然占用Windows的資源。在大型應(yīng)用程序中，有時不希望在應(yīng)用程序加載時自動創(chuàng)建所有窗體。Delphi可以指定哪些窗體被自動創(chuàng)建。

       選用Project|Options，Delphi顯示Project options對話框。如果Forms不是當(dāng)前頁，按動下標簽使之可見。如圖1.12所示：

       圖示為Delphi裝載的TextEdit例程(...\Delphi 2.0\Demos\doc\TextEdit.dpr)。在MainForm正文框中輸入主窗體的名字。當(dāng)應(yīng)用程序啟動時，主窗體自動打開并獲取輸入焦點。對MDI應(yīng)用，主窗體的FormStyle屬性必須設(shè)置為fsMDIForm。在Auto-created Forms列表框中列出了在啟動時自動創(chuàng)建的窗體，缺省時工程文件的所有窗體都在此列中。

       如果不需要自動創(chuàng)建窗體，使用箭頭按鈕把窗體移動到Available Forms列表框中。自動創(chuàng)建的窗體可以用Show方法進行顯示，而不自動創(chuàng)建時，必須編程實現(xiàn)窗體的顯示。在TextEdit工程中，定義一個TEditForm類型的變量EditForm，使用了以下的代碼顯示第二個窗體：

Begin

EditForm := TeditForm.Create(Self);

EditForm.Open(OpenFileDialog.Filename);

EditForm.Visible := True;

End;

也即，必須使用Create方法創(chuàng)建窗體，同時將窗體的Visible屬性設(shè)為真?！?/font>

1.5.2 使用工程管理器Project Manager　

        當(dāng)窗體的數(shù)目逐步增加時，跟蹤窗體以及與之相連的庫單元代碼就變得比較煩瑣。用Delphi提供的工程管理器Project Manager可以使得管理各種窗口更為方便。