請問各位高手，我有一個執行檔放在C:\Jimmy\Tmp下，如何在表單打開時將ShellTreeView自動展開到此目錄？

引言: 請問各位高手，我有一個執行檔放在C:\Jimmy\Tmp下，如何在表單打開時將ShellTreeView自動展開到此目錄？

如果我印象中沒有錯的話, 在oncreate中是不能直接做有關在該主窗中任何畫面異動的行為, 如setfocus, view....., 否則會有Access 的錯誤 但我利用下面的方式可以解決, 提供你參考 1.在 private { Private declarations } procedure FormChange(Sender: Tobject; var Done: boolean); --> 加此行, formchange名稱可自定 2.在 {$R *.DFM} 下加入此程式段 procedure TForm1.FormChange(Sender: Tobject; var Done: boolean); var handle: longInt; begin handle:= FindWindow('TForm1',nil); if handle = 0 then exit; Application.ProcessMessages; Application.OnIdle:= nil; Done:= True; // 寫下你那一段treeview展開程式 end; 3. 在 procedure TForm1.FormCreate(Sender: TObject); begin : : // 下行請加到最後一列 Application.OnIdle:= FormChange; end; 這樣在oncreate結束, window的handle變成Idle(閒置)時, 會自動去呼叫 FormChange 的程式段, 就應該可以解決你的問題了!

感謝P.D.兄的解答！Sorry！最近在趕貿易專案，所以至今才上網回覆！ 嗯！我想做的功能只是希望在表單打開時自動將ShellTreeView展開，以往用DirectoryListBox只要將其Directory屬性指定路徑即可自動展開，現在我將ShellTreeView的Path屬性指定路徑，可是卻不會自動展開，不知道要怎麼寫才能達到這個效果？

引言: 請問各位高手，我有一個執行檔放在C:\Jimmy\Tmp下，如何在表單打開時將ShellTreeView自動展開到此目錄？

ShellTreeView.ROOT:='C:\Jimmy\Tmp';