一個簡單的MDI示范程序(Delphi)
Note
在上面的方法中，ExtractFileName函數是用來從路徑中提取文件名的函數，文件名包含在OpenPictureDialog的FileName屬性中，相關的函數包括ExtractFilePath、ExtractFileDir、ExtractFileDrive和ExtractFileExt。
Note
前面我們說過所有動態創建的對象到最后都要用Free刪除掉，但是上面的代碼中好像違反了這個規律，實際上并沒有，因為VCL將負責釋放分配給MDI子窗口的內存。注意TChild構造程序中的單個參數是Self；這是通知VCL，MDI子窗體的擁有者就是此MDI窗體窗口。當MDI窗體消失時，它將刪除所有MDI子對象。
3、按下F12鍵，切換到主窗體MainForm，現在從菜單中選擇【File | Save As…】，將會顯示該菜單項處理事件。
4、鍵入以下代碼：
procedure TMainForm.SaveAs1Click(Sender: TObject); begin if SavePictureDialog.Execute then begin with ActiveMDIChild as TChild do { 檢查MDI子窗體是否被激活，只保存激活窗體的圖像文件} Image.Picture.SaveToFile(SavePictureDialog.FileName); end; end;這段代碼比較簡潔，頭兩行是用來檢查MDI子窗口是否被激活，如果是激活的窗體，就會顯示“Save a Picture”對話框，若用戶點擊OK，那就將用TPicture類的SaveToFile方法把圖像存到盤上去。
Note
前面的這段代碼中用到了as操作符，ActiveMDIChild屬性返回一個指向TForm對象的指針，在這種情況下，實際上只需要一個指向TChild對象的指針（MDI子類是從TForm類派生來的），as操作符把ActiveMDIChild變量強制轉化為一個TChild指針，如果as不能完成這種強制轉化，as后面的語句將被忽略。
在繼續講解前，我們先把這個工程保存起來，將Unit1保存為PctViewU.pas，將工程文件dpr保存為PictView。
三、為【Windows】菜單編寫代碼
1、F12切換到MainForm窗體上，從窗體上MainMenu菜單上選擇【Windows | Tile】；
2、只需要為此事件處理程序中輸入一行代碼即可，最終的事件處理代碼如下：
procedure TMainForm.ile1Click(Sender: TObject); begin Tile; end;
3、切換到MainForm窗體，并為菜單【Windows | Cascade】創建代碼，如下：
procedure TMainForm.Cascade1Click(Sender: TObject); begin Cascade; end;
4、切換到MainForm窗體，再次為菜單【Windows | Arrange All】創建代碼如下：
procedure TMainForm.ArrangeAll1Click(Sender: TObject); begin ArrangeIcons; end;
好，主窗體工作完成了，下面將進行創建MDI子窗體。
四、創建MDI子窗體
MDI子窗體非常簡單，實際上不必寫任何代碼，只要操作下列各步即可：
1、用工具欄上的New Form按鈕或者通過主菜單上的【File | New Form】來創建一個新窗體；
2、把它的Name屬性設置為Child，Caption屬性將被忽略，因為在運行階段將要動態設置此屬性；
3、把FormStyle屬性設置為fsMDIChild，為了把這個窗體當做MDI子窗體來處理，這是必須的。
為窗體本身要做的就這些，下面就在此窗體上放置一個Image組件，Image組件將顯示用戶選擇的圖形文件。
1、點擊組件選項板上的Additional標簽，點擊Image按鈕，并把它放置到Child窗體上；
2、把它的Name屬性設置為Image；
3、把它的Stretch屬性設置為True；
4、把它的Align屬性設置為alClient，Image組件將縮放到窗體的客戶區大小；
5、選擇Delphi主菜單的【File | Save】，以MDIChild保存此窗體單元。
6、切換到Code Editor，點擊PctViewU標簽，然后從Delphi主菜單選擇【File | Use Unit】，選擇MDIChild單元，點擊OK，這樣該工程就可以編譯了。
此時，整個MDI子窗體看上去如下：
我們的程序還沒有完成，因為還差一個About框，此時我們更渴望看到程序的運行，先點擊Run按鈕，就可以運行程序了，選擇【File | Open…】就可以打開任何圖形文件了。
注意MDI子窗口會自動縮放它所包含的圖形，打開幾個文件，然后試一試Window菜單的Cascade和Tile選項。
五、建立About對話框
