Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2024, 13:35   #1
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию TShellTreeView - развернуть папку

Здравствуйте!

Как в компоненте TShellTreeView программно добраться до определенной папки и развернуть?

Не помогает даже это: например, TShellTreeView.Path := 'C:\Program Files (x86)\Borland';

Заранее спасибо!
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 27.03.2024, 13:58   #2
DIONISKA
Форумчанин
 
Регистрация: 07.11.2011
Сообщений: 161
По умолчанию

Цитата:
Сообщение от newerow1989 Посмотреть сообщение
TShellTreeView
Может всё-же стоит обращаться к экземпляру класса?
Код:
ShellTreeView1.Path := 'C:\Program Files (x86)\Borland';
DIONISKA вне форума Ответить с цитированием
Старый 27.03.2024, 14:01   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

В смысле?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 27.03.2024, 14:24   #4
DIONISKA
Форумчанин
 
Регистрация: 07.11.2011
Сообщений: 161
По умолчанию

TShellTreeView это класс, а например ShellTreeView1 это экземпляр класса:
вот это в вашем примере:
Цитата:
Сообщение от newerow1989 Посмотреть сообщение
TShellTreeView.Path := 'C:\Program Files (x86)\Borland';
логично же что нужно так:
Код:
//...
  ShellTreeView1:  TShellTreeView;
//...↑экземпляр    ↑класс    
{...}
ShellTreeView1.Path := 'C:\Program Files (x86)\Borland';
{...}
DIONISKA вне форума Ответить с цитированием
Старый 27.03.2024, 14:39   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

В принципе ShellTreeView1 и TShellTreeView не так важно.
Мне самое главное как в компоненте ShellTreeView1 типа TShellTreeView программно добраться до определенной папки и развернуть.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 27.03.2024, 15:13   #6
DIONISKA
Форумчанин
 
Регистрация: 07.11.2011
Сообщений: 161
По умолчанию

Цитата:
Сообщение от newerow1989 Посмотреть сообщение
программно добраться до определенной папки
Ну так через
Код:
ShellTreeView1.Path := 'C:\Program Files (x86)\Borland';
Вложения
Тип файла: zip tst.zip (268.7 Кб, 1 просмотров)
DIONISKA вне форума Ответить с цитированием
Старый 27.03.2024, 15:47   #7
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

DIONISKA, спасибо за помощь!

Самое интересное, что у меня установлены 2 версии Delphi: 6 и 10.3.
В модуле ShellCtrls процедура SetPath
Код:
procedure TCustomShellTreeView.SetPath(const Value: string);
описана по-разному в разных версиях Delphi.

Безымянный.png
Безымянный1.png

Если в Delphi 6 удалить (закомментировать) переменную FUpdating, то папка разворачивается. Если ее не удалять, то папка не разворачивается.
А в 10.3 версии такой переменной нету, папка также разворачивается.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]

Последний раз редактировалось newerow1989; 27.03.2024 в 15:50.
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Развернуть приложение ASP.NET на IIS без VS p.paha ASP.NET 0 03.09.2015 09:24
Развернуть папку в проводнике JoLan Общие вопросы Delphi 13 21.10.2014 07:41
Как развернуть рекурсию Alendorff Помощь студентам 0 25.03.2014 11:32
Ошибки при использовании ShellControls (TShellTreeView, etc) Equilibrium Keeper C++ Builder 4 11.09.2009 18:27
Как развернуть ячейки? alibaba Microsoft Office Excel 2 28.11.2007 11:05