欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

第一章　Delphi快速入門(mén)（五）

1.4.3.1 調用標準對話(huà)框　

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

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

1.4.3.2 OpenDialog和SaveDialog部件　

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

if OpenDialog1.Execute then

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

1.4.3.3 ColorDialog和FontDialog　

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

       字體對話(huà)框Font可以幫助用戶(hù)獲取各種方式的字體。使用OnApply事件，可以使得Font對話(huà)框中包含一個(gè)Apply按鈕，按動(dòng)它，對話(huà)框中設定的字體會(huì )立即應用到指定的對象中，而對話(huà)框仍然是打開(kāi)的，這樣更便于觀(guān)察修改的結果。

        以下的例程在窗體中先放置一個(gè)按鈕Button1，調用字體對話(huà)框來(lái)改變按鈕上的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　

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

1.4.3.5 FindDialog和ReplaceDialog　

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

1.5 使用Delphi的工程管理、設計工具　

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

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

       絕大多數的應用程序都用到不只一個(gè)窗口，Delphi允許用戶(hù)創(chuàng )建多文檔界面(MDI)應用程序。應用自動(dòng)創(chuàng )建窗體、窗體樣板、對話(huà)框專(zhuān)家、應用專(zhuān)家等，可以使得創(chuàng )建應用程序更為方便快捷，而且可重復利用，大大地降低了工作量?！?/font>

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

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

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

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

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

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;　

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

        在About窗體中加入一個(gè)按鈕，并將按鈕的ModalResult屬性設置為mrOK，同時(shí)將按鈕的標簽的Caption改為OK。這樣一個(gè)有模式的About框已經(jīng)建成了。將窗體Form1中Button1的OnClick處理過(guò)程的代碼改變如下：　

Form2.ShowModal; 　

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

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

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

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

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

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

Begin

EditForm := TeditForm.Create(Self);

EditForm.Open(OpenFileDialog.Filename);

EditForm.Visible := True;

End;

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

1.5.2 使用工程管理器Project Manager　

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