一個(gè)簡單的MDI示范程序(Delphi)
1、將建立好的About窗體的Name屬性設(shè)置為AboutBox，BorderStyle屬性設(shè)置為bsDialog
2、以PVAboutU保存此About對話框窗體單元；
3、切換到Code Editor中的PctViewU標(biāo)簽，從Delphi主菜單選擇【File | Use Unit】將PVAboutU單元包含近來；
4、按F12切換到MainForm主窗體，從菜單上選擇【Help | About】，這樣就產(chǎn)生一個(gè)OnClick處理事件；
5、為此事件添加代碼如下：
procedure TMainForm.About1Click(Sender: TObject); begin AboutBox.ShowModal; end;
現(xiàn)在運(yùn)行它，點(diǎn)擊Run按鈕，試一試Help菜單的About選項(xiàng)，運(yùn)行效果如下：
六、進(jìn)一步完善程序
此時(shí)這個(gè)程序已經(jīng)可以運(yùn)行了，但它不等于就沒有值得完善的地方。
對于這個(gè)程序還有兩個(gè)問題需要值得注意，它們?nèi)菀谆煜紫龋?dāng)啟動(dòng)該程序時(shí)，會(huì)顯示一個(gè)空白MDI子窗口，這是因?yàn)镈elphi應(yīng)用程序會(huì)自動(dòng)建立所有窗體。我們可以從自動(dòng)產(chǎn)生的清單中刪除MDI子窗體。
1、從Delphi主菜單中選擇【Project | Options…】，將顯示Project Option對話框；
2、點(diǎn)擊Forms標(biāo)簽，其中“Auto-create forms”中顯示的就是所有會(huì)自動(dòng)創(chuàng)建產(chǎn)生的窗體清單；
3、點(diǎn)擊其中不想要自動(dòng)創(chuàng)建的窗體Child，選擇 >按鈕，就會(huì)從自動(dòng)創(chuàng)建列表中刪除該子窗口，并把它放置到“Available forms”列表中。
再次運(yùn)行此程序，這一次將不顯示空白MDI子窗體。
Caution
如果要從自動(dòng)產(chǎn)生清單中刪除一個(gè)窗體，就必須保證在用它之前要建立一個(gè)專門的窗體，如果不建立一個(gè)窗體，指向窗體的指針就不能初始化，這就意味著還沒有為此指針賦一個(gè)有意義的值（記住指針是由Delphi自動(dòng)產(chǎn)生）。試圖用這個(gè)指針，其結(jié)果將會(huì)產(chǎn)生一個(gè)非法錯(cuò)誤，當(dāng)從自動(dòng)產(chǎn)生清單中刪除一個(gè)窗體后，就必須負(fù)責(zé)在用它之前建立它。
還有一個(gè)問題，就是在MDI窗體上點(diǎn)擊關(guān)閉按鈕時(shí)，發(fā)現(xiàn)子窗口并沒有關(guān)閉，而是最小化，因此我們要修改它，使得點(diǎn)擊關(guān)閉后真正被關(guān)閉。
1、在Form Designer中選擇Child子窗體，選中窗體本身，確認(rèn)在Object Inspector的Component Selector中選擇的是Child。
2、雙擊Events頁的OnClose事件，添加代碼如下：
procedure TChild.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;
把關(guān)閉動(dòng)作設(shè)置為caFree，指示VCL關(guān)閉子窗體，并釋放與窗體有關(guān)的內(nèi)存，這時(shí)點(diǎn)擊MDI子窗體關(guān)閉按鈕就可以正常關(guān)閉了。
4、再次運(yùn)行此程序，證明此程序的表現(xiàn)與前面所述的一樣。
