<p>　　正當我一籌莫展時，突然想到：</font>DirectoryOutline<font
face="宋體" lang="ZH-CN">是一個</font>Sample<font face="宋體" lang="ZH-CN">部件，</font>Delphi
<font face="宋體" lang="ZH-CN">提供了它的源代碼。而當我分析了它的源代碼后，我知道應該做什么了，那就是為</font>DirectoryOutline<font
face="宋體" lang="ZH-CN">增添一個</font>Reset<font face="宋體" lang="ZH-CN">方法</font>!　</p>
<p>6.7.3 <font face="宋體" lang="ZH-CN">為部件增添一個方法　</p>
<p>　　嚴格地說，我們所做的工作屬于創建一個新部件。但因為我們有源代碼，所以不必從</font>DirectoryOutline<font
face="宋體" lang="ZH-CN">繼承而是直接修改它。這樣我們可以省去與創建部件有關的許多繁瑣工作。對創建新部件感興趣的讀者可閱讀本書第三編的有關章節。</p>
<p>　　在</font>Delphi IDE<font face="宋體" lang="ZH-CN">中打開</font>DirectoryOutline<font
face="宋體" lang="ZH-CN">的源文件后：</font></p>
<p>1.<font face="宋體" lang="ZH-CN">把庫單元名改為</font>DirPlus<font
face="宋體" lang="ZH-CN">，類名改為</font>TDirectoryOutlinePlus<font face="宋體"
lang="ZH-CN">，表明這是</font>DirectoryOutline<font face="宋體" lang="ZH-CN">的增強版。而后存入另一個目錄中；</p>
<p>　</font> 2.<font face="宋體" lang="ZH-CN">添加一個公有方法</font>Reset<font
face="宋體" lang="ZH-CN">。這一方法的作用是重新讀取當前驅動器的目錄。程序清單如下。　</p>
</font><p>procedure TDirectoryOutlinePlus.Reset;</p>
<p>begin</p>
<p>ChDir(FDrive + ':');</p>
<p>GetDir(0, FDirectory); </p>
<p>FDirectory := ForceCase(FDirectory); </p>
<p>if not (csLoading in ComponentState) then BuildTree; </p>
<p>end;</p>
<p><font face="宋體" lang="ZH-CN">　　讀者也許被這段代碼弄糊涂了。由于篇幅所限，而且涉及到許多自定義部件開發的內容，我們也不準備去詳細解釋它。假如讀者想徹底搞懂它，我建議先看一下本書第三編有關自定義部件開發的內容，而后再對照原</font>DirectoryOutline<font
face="宋體" lang="ZH-CN">的源代碼進行分析。</font></p>
<font face="宋體" lang="ZH-CN"><p>　　</font>3.<font face="宋體" lang="ZH-CN">編譯成一個庫文件</font>DirPlus.tpu;</p>
<p>4.<font face="宋體" lang="ZH-CN">把</font>DirPlus<font face="宋體" lang="ZH-CN">加入部件的</font>Samples<font
face="宋體" lang="ZH-CN">頁中。</p>
<p>　　如何添加一個部件見第三編有關章節的介紹。</p>
<p>　　當增強的目錄樹準備好以后，必須修改我們的子窗口設計，但卻不必親自修改源代碼。</p>
<p>　　</font>1.<font face="宋體" lang="ZH-CN">刪除子窗口中的</font>TDirectoryOutline<font
face="宋體" lang="ZH-CN">類部件</font>DirectoryOutline<font face="宋體"
lang="ZH-CN">。此時</font>FileList<font face="宋體" lang="ZH-CN">占據了整個客戶區；</p>
<p>　　</font>2.<font face="宋體" lang="ZH-CN">把</font>FileList<font face="宋體"
lang="ZH-CN">的</font>Align<font face="宋體" lang="ZH-CN">屬改為</font>None<font
face="宋體" lang="ZH-CN">，并留出左邊的空白供放部件用；</p>
<p>　　</font>3.<font face="宋體" lang="ZH-CN">在窗口左部加入</font>TDirectoryOutlinPlus<font
face="宋體" lang="ZH-CN">類的部件</font>DirectoryOutline<font face="宋體"
lang="ZH-CN">；</font></p>
<p>4.<font face="宋體" lang="ZH-CN">把</font>DirectoryOutline<font face="宋體"
lang="ZH-CN">的</font>Align<font face="宋體" lang="ZH-CN">屬性改為</font>Left<font
face="宋體" lang="ZH-CN">，</font>FileList<font face="宋體" lang="ZH-CN">的</font>Align<font
face="宋體" lang="ZH-CN">屬性還原為</font>Client<font face="宋體" lang="ZH-CN">；</font></p>
<p>5.<font face="宋體" lang="ZH-CN">在</font>DirectoryOutline<font face="宋體"
lang="ZH-CN">的事件</font>OnChange<font face="宋體" lang="ZH-CN">列表中選取</font>DirectoryOutlineChange<font
face="宋體" lang="ZH-CN">，即原</font>DirectoryOutline<font face="宋體"
lang="ZH-CN">的處理過程。</p>
<p>　　以上工作的最終目標是實現目錄創建、刪除后屏幕的正確顯示。這只需要調用</font>DirectoryOutline<font
face="宋體" lang="ZH-CN">的</font>Reset<font face="宋體" lang="ZH-CN">方法即可。</font></p>
<p><font face="宋體" lang="ZH-CN">目錄刪除過程的實現代碼如下。　</p>
</font><p>procedure TFMForm.DeleteDirectory1Click(Sender: TObject);</p>
<p>var</p>
<p>path: String;</p>
<p>k: Integer;</p>
<p>begin</p>
<p>{$I-}</p>
<p>path := DirectoryOutline.Directory;</p>
<p>DirectoryOutline.Directory := ExtractFilePath(Path);</p>
<p>if MessageDlg('Delete ' + path + '?', mtConfirmation,[mbYes, mbNo], 0) = idYes then</p>
<p>RmDir(path);</p>
<p>if IOResult &lt;&gt; 0 then</p>
<p>MessageDlg(' Cannot remove directory! The path might not'+</p>
<p>'exist,non-empty or is the current logged directory.',mtWarning,[mbOk], 0)</p>
<p>else</p>
<p>DirectoryOutline.Reset;</p>
<p>end;</p>
<p><font face="宋體" lang="ZH-CN">修改后的目錄創建過程如下。　</p>
</font><p>procedure TFMForm.CreateDirectory1Click(Sender: TObject);</p>
<p>var</p>
<p>NewDir: TNewDir;</p>
<p>Dir: String;</p>
<p>begin</p>
<p>{$I-}</p>
<p>NewDir := TNewDir.Create(self);</p>
<p>with NewDir do</p>
<p>begin</p>
<p>CurrentDir.Caption := DirectoryOutline.Directory;</p>
<p>if (ShowModal &lt;&gt; idCancel) and (DirName.Text &lt;&gt; '') then</p>
<p>Dir := ExpandFileName(DirName.text);</p>
<p>end;</p>
<p>MkDir(Dir);</p>
<p>if IOResult &lt;&gt; 0 then</p>
<p>MessageDlg('Cannot Create directory', mtWarning, [mbOk], 0)</p>
<p>else</p>
<p>DirectoryOutline.Reset;</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p>　　當完成了這些工作，把程序重新編譯、運行后，可以發現我們所希望實現的功能完全實現了！同時，我們有了一個更好的目錄樹部件。　</p>
</font><p>6.4.7.4 <font face="宋體" lang="ZH-CN">改變當前目錄　</p>
<p>　　改變當前目錄的實現非常簡單，只要修改</font>DirectoryOutline<font
face="宋體" lang="ZH-CN">的</font>Directory<font face="宋體" lang="ZH-CN">屬性。但需注意的是：當改變后目錄所在驅動器也發生變化時應相應修改</font>DriveTabSet<font
face="宋體" lang="ZH-CN">的當前值。由于驅動器名與</font>DriveTabSet<font
face="宋體" lang="ZH-CN">的索引屬性</font>TabIndex<font face="宋體" lang="ZH-CN">之間并沒有確定的對應關系，因而需要通過一個循環進行查找匹配。</font></p>
<p>Change Directory<font face="宋體" lang="ZH-CN">的菜單事件處理過程是</font>FileChange<font
face="宋體" lang="ZH-CN">，即與文件的移動、拷貝、更名共用一個事件處理過程。詳細情況請讀者參看</font>(6.4.5.3)<font
face="宋體" lang="ZH-CN">中的介紹。</font></p>
<p><font face="宋體" lang="ZH-CN">改變當前目錄的實現如下。　</p>
</font><p>procedure TFMForm.ChangeDirectory(Todir: String);</p>
<p>var</p>
<p>i: Integer;</p>
<p>begin</p>
<p>{$I-}</p>
<p>ChDir(ToDir);</p>
<p>if IOResult &lt;&gt; 0 then</p>
<p>MessageDlg('Cannot find directory', mtWarning, [mbOk], 0)</p>
<p>else</p>
<p>begin</p>
<p>with DirectoryOutline do</p>
<p>begin</p>
<p>Directory := ToDir;</p>
<p>Refresh;</p>
<p>if DriveTabSet.Tabs[DriveTabSet.TabIndex][1]&lt;&gt;drive then</p>
<p>for I := 1 to 25 do</p>
<p>if DriveTabSet.Tabs[i][1] = drive then</p>
<p>begin</p>
<p>DriveTabSet.TabIndex := i;</p>
<p>Exit;</p>
<p>end;</p>
<p>end;</p>
<p>end;</p>
<p>end;</p>
<p>6.4.8 <font face="宋體" lang="ZH-CN">一些問題的處理　</p>
</font><p>6.4.8.1 <font face="宋體" lang="ZH-CN">子窗口的標題　</p>
<p>　　</font>Windows<font face="宋體" lang="ZH-CN">的文件管理器是我們設計的楷模，在子窗口顯示標題上也不例外。我們把當前目錄加上文件的類型作為子窗口的標題。</font></p>
<p><font face="宋體" lang="ZH-CN">過程</font>CreateCaption<font face="宋體"
lang="ZH-CN">用于生成子窗口的標題。　</p>
</font><p>procedure TFMForm.CreateCaption;</p>
<p>var</p>
<p>Cap: String;</p>
<p>begin</p>
<p>Cap := DirectoryOutline.Directory;</p>
<p>Cap := cap+'\'+FileList.mask;</p>
<p>Caption := Cap;</p>
<p>end;　</p>
<p><font face="宋體" lang="ZH-CN">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 當前目錄或文件顯示類型發生變化時改變子窗口的標題。如</font>DirectoryOutline<font
face="宋體" lang="ZH-CN">的</font>Change<font face="宋體" lang="ZH-CN">事件處理過程和</font>ViewType<font
face="宋體" lang="ZH-CN">菜單項的</font>Click<font face="宋體" lang="ZH-CN">事件處理過程就調用了該過程。　</p>
</font><p>6.4.8.2 <font face="宋體" lang="ZH-CN">狀態條的顯示　</p>
<p>　　狀態條用于顯示當前目錄和當前選中文件。它們的值在</font>DirectoryOutline
<font face="宋體" lang="ZH-CN">和</font>FileList<font face="宋體" lang="ZH-CN">的</font>Change<font
face="宋體" lang="ZH-CN">事件處理過程中修改。</p>
<p>　　</font>DirectoryOutline<font face="宋體" lang="ZH-CN">和</font>FileList<font
face="宋體" lang="ZH-CN">最終的</font>Change<font face="宋體" lang="ZH-CN">事件處理過程如下：　</p>
</font><p>procedure TFMForm.DirectoryOutlineChange(Sender: TObject);</p>
<p>begin</p>
<p>CreateCaption;</p>
<p>FileList.clear;</p>
<p>FileList.Directory := DirectoryOutline.Directory;</p>
<p>FileList.Update;</p>
<p>FileManager.DirectoryPanel.Caption := DirectoryOutline.Directory;</p>
<p>end;</p>
<p>procedure TFMForm.FileListChange(Sender: TObject);</p>
<p>begin</p>
<p>with FileList do</p>
<p>begin</p>
<p>if (ItemIndex &gt;= 0) and (Not HasAttr(FileName,faDirectory)) then</p>
<p>begin</p>
<p>TheFileName := FileName;</p>
<p>FileManager.FilePanel.Caption :=</p>
<p>Format('%s, %d bytes', [TheFileName, GetFileSize(TheFileName)]);</p>
<p>end</p>
<p>else</p>
<p>FileManager.FilePanel.Caption := '';</p>
<p>end;</p>
<p>end;　</p>
<p>6.4.8.3 <font face="宋體" lang="ZH-CN">版本信息　</p>
<p>　　當用戶單擊主窗口的</font>Help|About<font face="宋體" lang="ZH-CN">菜單項時將彈出一個</font>About<font
face="宋體" lang="ZH-CN">對話框，用于顯示版本信息（如圖</font>6.13<font
face="宋體" lang="ZH-CN">）。</p>
<p>　　這一對話框是用</font>Delphi<font face="宋體" lang="ZH-CN">提供的模板做的。</font></p>
<p>6.4.8.4 <font face="宋體" lang="ZH-CN">菜單項的變灰與使能　</p>
<p>　　</font>File<font face="宋體" lang="ZH-CN">菜單中定義的文件管理功能只有當活動焦點在</font>FileList(<font
face="宋體" lang="ZH-CN">即有當前選中文件</font>)<font face="宋體"
lang="ZH-CN">時才起作用。否則所有菜單項應變灰，以免導致系統崩潰。</p>
<p>　　這一功能在</font>File<font face="宋體" lang="ZH-CN">菜單的</font>Click<font
face="宋體" lang="ZH-CN">事件處理過程中實現。這一點并不很容易被人想到，希望讀者能從中受到啟發。　</p>
</font><p>procedure TFMForm.File1Click(Sender: TObject);</p>
<p>var</p>
<p>FileSelected: Boolean;</p>
<p>begin</p>
<p>FileSelected := FileList.ItemIndex &gt;= 0;</p>
<p>Open1.Enabled := FileSelected;</p>
<p>Delete1.Enabled := FileSelected;</p>
<p>Copy1.Enabled := FileSelected;</p>
<p>Move1.Enabled := FileSelected;</p>
<p>Rename1.Enabled := FileSelected;</p>
<p>Properties1.Enabled := FileSelected;</p>
<p>end;</p>
<font face="宋體" lang="ZH-CN"><p>　　判斷是否有文件被選中是通過檢測</font>ItemIndex<font
face="宋體" lang="ZH-CN">屬性是否大于等于</font>0<font face="宋體"
lang="ZH-CN">來實現的。</p>
<p>　　</font> FileSelected := FileList.ItemIndex &gt;= 0<font face="宋體"
lang="ZH-CN">；　</p>
</font><p>6.4.8.5 <font face="宋體" lang="ZH-CN">可重用的文件處理模塊　</p>
<p>　　庫單元</font>fmxutils<font face="宋體" lang="ZH-CN">是一個代碼庫，提供了若干文件處理模塊。這些模塊除在本程序中使用外，讀者可以在其它應用程序中直接調用，而且不必重新編譯，只要在</font>Uses<font
face="宋體" lang="ZH-CN">子句中包含即可。從中我們可以體會到，</font>Delphi
<font face="宋體" lang="ZH-CN">以庫單元為中心的程序組織方式提供了一種較完善的代碼重用機制。　</p>
</font><p>6.4.9 <font face="宋體" lang="ZH-CN">小結　</p>
<p>　　文件管理器是一個較為綜合的例程，使用到了絕大部分以文件名、文件句柄以及其它參數</font>(<font
face="宋體" lang="ZH-CN">除文件變量</font>)<font face="宋體" lang="ZH-CN">為操作對象的文件管理過程</font>/<font
face="宋體" lang="ZH-CN">函數，同時也提供了一些程序設計開發的思想。我們的介紹是以程序功能模塊來組織的，我建議讀者在學習并試圖自己建立這一程序時采用同樣的方法。</font>(6.4.8)<font
face="宋體" lang="ZH-CN">中的內容或許是一開始就應了解的，但其它完全可以按順序逐步地擴充，最后得到一個完整的程序。這一例程在后邊的拖放操作和異常處理等章節中還要用到。讀者可以以此為基礎進一步完善它，使它真正成為一個完全實用的程序。</p>
<p>　　文件管理是在開發一個高級的</font>Windows<font face="宋體"
lang="ZH-CN">程序中不可避免的要涉及到的問題。本章介紹的思路和方法將為讀者成為一個熟練的程序員奠定基礎。</font></p>
<BR>
<hr color="#EE9B73" size="1" width="94%">

</TD>
<TD CLASS="tt3" VALIGN="bottom" width="8%"  background="bg.gif"><strong><A HREF="019.htm" ><FONT style="FONT-SIZE: 9pt">后一頁</font></A><BR>
<A HREF="017.htm" ><FONT style="FONT-SIZE: 9pt">前一頁</font></A><BR>

<A HREF="index.html" ><FONT style="FONT-SIZE: 9pt">回目錄</font></A><BR>
<A HREF="../../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首頁</font></A><BR>
</strong>
</TD>
</TR>
</table>
</BODY></HTML>