下面將要創建一個最簡單的多重窗體的應用程序,其中將要設計到如果使用單元,如何進行編譯、鏈接和創建應用程序。
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