您现在的位置：程式碼之家 >> 編程語言 > >> 更多程式語言 >> Delphi

Delphi 檔案管理器架構設計：MDI 主視窗、子視窗管理與元件聯動

編輯：Delphi

整體設計思路

主視窗採 MDI（FormStyle=fsMDIForm），功能集中於子視窗（TFMForm，fsMDIChild）。對話框動態建立。視窗清單：

視窗類別	功能	建立觸發
TFileManager	主視窗	專案啟動
TFMForm	子視窗（檔案/目錄顯示與操作）	Windows\|New Window
TFileAttrForm	檔案屬性	File\|Properties / Function\|Search
TChangeForm	移動/複製/更名/改目錄輸入	File\|Move,Copy,Rename / Directory\|Change Directory
TSearchForm	搜尋輸入	Function\|Search
TDiskViewForm	磁碟資訊	Function\|Disk View
TNewDir	建立目錄輸入	Directory\|Create Directory
TAboutBox	版本資訊	Help\|About

介面設計要點

主視窗：主選單 + 雙狀態列面板（DirectoryPanel 目錄、FilePanel 檔案），WindowMenu=Windows、GroupIndex=9 固定 Windows/Help 選單
子視窗：主選單、DriveTabSet（Align=alTop, Style=tsOwnerDraw）、DirectoryOutline（Align=alLeft）、FileList（Align=alClient）、三隱藏 TImage 載入磁碟機圖示

元件聯動邏輯

// TabSet 點擊 → 切換磁碟機
DriveTabSet.OnClick: DirectoryOutline.Drive := DriveTabSet.Tabs[DriveTabSet.TabIndex][1];

// DirectoryOutline 變更 → 更新檔案列表
DirectoryOutline.OnChange: FileList.Directory := DirectoryOutline.Directory; FileList.Update;

子視窗建立、排列、關閉管理

建立：FileMan := TFMForm.Create(Application)
排列：Tile/Cascade/ArrangeIcons
最小化全部：迴圈 MDIChildren[i].WindowState := wsMinimized
關閉釋放：OnClose: Action := caFree
禁止關閉最後一視窗：OnCloseQuery 檢查 MDIChildCount <= 1
解決主視窗無法關閉：全域 ExitClick 標記，Exit1Click 設 True 並轉發主視窗 Exit1Click，OnCloseQuery 條件排除