6.4.7.4 改變當前目錄
改變當前目錄的實現非常簡單，只要修改DirectoryOutline的Directory屬性。但需注意的是：當改變後目錄所在驅動器也發生變化時應相應修改DriveTabSet的當前值。由於驅動器名與DriveTabSet的索引屬性TabIndex之間並沒有確定的對應關系，因而需要通過一個循環進行查找匹配。
Change Directory的菜單事件處理過程是FileChange，即與文件的移動、拷貝、更名共用一個事件處理過程。詳細情況請讀者參看(6.4.5.3)中的介紹。
改變當前目錄的實現如下。
procedure TFMForm.ChangeDirectory(Todir: String);
var
i: Integer;
begin
{$I-}
ChDir(ToDir);
if IOResult <> 0 then
MessageDlg('Cannot find directory', mtWarning, [mbOk], 0)
else
begin
with DirectoryOutline do
begin
Directory := ToDir;
Refresh;
if DriveTabSet.Tabs[DriveTabSet.TabIndex][1]<>drive then
for I := 1 to 25 do
if DriveTabSet.Tabs[i][1] = drive then
begin
DriveTabSet.TabIndex := i;
Exit;
end;
end;
end;
end;
6.4.8 一些問題的處理
6.4.8.1 子窗口的標題
Windows的文件管理器是我們設計的楷模，在子窗口顯示標題上也不例外。我們把當前目錄加上文件的類型作為子窗口的標題。
過程CreateCaption用於生成子窗口的標題。
procedure TFMForm.CreateCaption;
var
Cap: String;
begin
Cap := DirectoryOutline.Directory;
Cap := cap+'\'+FileList.mask;
Caption := Cap;
end;
當前目錄或文件顯示類型發生變化時改變子窗口的標題。如DirectoryOutline的Change事件處理過程和ViewType菜單項的Click事件處理過程就調用了該過程。
