Warum auch immer wird anscheinend aus dem TTreeViewW beim ShowModal ein TTreeViewA. Das habe ich im Moment nicht so hinbekommen wie ich es mir gewünscht habe. Deshalb habe ich die Versionen, welche anstelle des TTreeView noch das TShellTreeView verwenden durchgesehen und bei der letzten ein paar Fehler, welche nicht unter Turbo Delphi aber unter Delphi 7 aufgetreten sind, bereinigt. Die Komponente samt Demo gibt es im ersen Beitrag (
OpenDirDialog_9a.7z).