最簡單的多重表單的應用（Delphi）

下面將要建立一個最簡單的多重表單的應用程式，其中將要設計到如果使用單元，如何進行編譯、連結和建立應用程式。

1、選擇主菜單的【File | New | Application】，建立一個新的工程；

2、把預設建立Form1視窗的Name屬性改為“MainForm”，把Caption屬性改為“Multiple Forms Test Program”；

3、儲存工程。並以Main.pas名儲存單元，以Multiple.dpr名儲存工程；

4、在MainForm的表單上放置一個按鈕，並使按鈕的Name為“btnShowForm2”,Caption屬性為“ShowForm2”，如下：

5、從主菜單選擇【File | New | Form】（或者點擊工具列上的“New Form”按鈕）建立一個新視窗。建立立的這個視窗預設名字為Form1，通過拖動該視窗右下角，縮放該視窗，使得該視窗比MainForm小，且顯示在MainForm的中央，如下：

6、把建立的Form1視窗的Name屬性改為“SecondForm”，Caption屬性改為“A Second Form”；

7、選擇工具列上的“Save File”按鈕，儲存此單元為Second.pas；

8、選擇Label組件，並拖放到SecondForm上，並把它的Caption屬性改為“This is the second form”，並把Font屬性中的Size該為自己喜歡的大小，且把Label標籤放置到SecondForm的中央位置；

9、點擊MainForm視窗，然後雙擊“ShowForm2”按鈕，Code Editor將顯示出來，並且定位游標到輸入代碼的方法（雙擊按鈕將產生一個OnClick事件），如下：

10、輸入代碼如下：

procedure TMainForm.btnShowForm2Click(Sender: TObject);begin  SecondForm.ShowModal; { 顯示出SecondForm模式化視窗}end;

11、運行F9此程式，將會得到一個訊息框如下：

點擊Yes按鈕，Delphi將會把Second單元添加到Main單元的uses清單中。

再次點擊F9運行該程式後，點擊主表單上的“ShowForm”按鈕，第二個視窗將建立顯示出來，通過點擊表單標題列上的關閉（X）可以關閉第二個視窗。

 

添加單元

上面的第11步中，是通過Delphi提醒為uses清單中添加單元的，我們也可以自行增加單元，既可以在Main.pas中的uses清單中鍵入Second單元，也可以從主菜單選擇【File | Use Unit】。

現在我們返回第10步（可以在Main.pas中找到“use Second；”這句刪除掉）。

選中MainForm視窗，然後點擊主菜單的【File | Use Unit】，將彈出Use Unit對話方塊，如下：

選擇要添加的單元，並點擊OK，Delphi將會把此單元增加到當前表單的uses清單中。

如果你安裝了“CnPack IDE Wizards”專家包的話，通過主菜單【File | Use Unit】將彈出下面的對話方塊，其實功能和Delphi內建的Use Unit對話方塊是一樣的，如下：

Note

Use Unit對話方塊中所顯示的單元只是以工程中已存在且未包含在當前單元之中的單元名稱。已經被包含的單元將不再列表框中顯示。

以上代碼均在Delphi中測試通過，範例程式碼下載：多重表單的應用.rar