Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Связать Tshelltreeview и Tshelllistview

Автор: volvo 10.07.2006 20:38

Вопрос, собственно, вот в чем: у меня на форме лежит TShellTreeView, и к его свойству Path привязан TShellListView, то есть по событию TShellTreeView.OnChange делается:

ShellListView1.Root := ShellTreeView1.Path;
Все бы ничего, даже работает. До тех пор, пока я не кликну, например, на "My Computer" или "Control Panel". В этом случае мне ShellListView радостно сообщает, что "не может установить путь", т.к. в этом случае Path вернет не путь, а название выбранного пункта. Вот, собственно, и вопрос... Что делать? Есть ли какой-нибудь способ связать два этих компонента, чтобы можно было переходить в любую папку?

(пока решил эту проблему, вызывая SHGetSpecialFolderLocation для каждой системной папки, и сравнивая ее название с тем, что возвращает TShellTreeView.Path, но это что-то не очень мне нравится - циклом бегать по всем системным папкам... dry.gif Неужели нет ничего более красивого???)

Автор: hardcase 10.07.2006 21:56

Через ObjectInspector:

Код

ShellTreeView1.ShellComboBox:=ShellComboBox1;
ShellTreeView1.ShellListView:=ShellListView1;
ShellComboBox1.ShellListView:=ShellListView1;
ShellComboBox1.ShellTreeView:=ShellTreeView1;

Автор: volvo 10.07.2006 22:14

blink.gif А я зачем-то велосипед изобретать начал... Спасибо...