0

Раньше было так: ShellTreeView1.Path; (очень давно, но так было)
И получали путь к каталогу.
А теперь TreeView1.[ ? ]
Т.е. как получить путь к каталогу?

P.S. Ещё было это: ShellTreeView1.Root:=(Path_Destination+Form3.edit1.text) - тоже считаю, было удобно. Неужели всё убрали?

5
  • 1
    посмотрите этот ответ, возможно поможет
    – Ruslan_K
    31 мая 2018 в 5:24
  • 3
    Кто куда убрал? В ShellTreeView и Path и Root никуда не делись, а TreeView никогда и не знал о путях...
    – MBo
    31 мая 2018 в 5:52
  • Компонент ShellTreeView доступен в Delphi вплоть до версии XE6. Его так же можно установить и в более поздние версии: Where is TShellTreeView? А TreeView совершенно другой компонент, не имеющий ничего общего с ShellTreeView и нельзя говорить, что в нём что-то убрали или добавили.
    – zed
    31 мая 2018 в 7:39
  • @MBo, таки в поиске задал ShellTreeView - его нет. А в 7-ке был.
    – I_CaR
    31 мая 2018 в 12:06
  • @zed, если я правильно понимаю, то в 7-ке он шёл в стоке, а в последующих идёт допом. Который изначально не выведен в интерфейс VCL? Завтра попробую установить его.
    – I_CaR
    31 мая 2018 в 12:14

2 ответа 2

2

TTreeView - это компонент для отображения данных в виде дерева, про пути он ничего не знает.

Если вы хотите отобразить там структуру каталогов, то вам для начала нужно построить эту структуру в памяти, т.е. собрать некую TDirStructCollection, а потом отобразить ее на компоненте. При этом можно к каждому TTreeNode привязать свой TDirStructItem (элемент вашей структуры данных) и потом получать к нему доступ через свойство Data.

type
  TDirStructItem = class
  public
    DirPath: string;
  end;

var
  NextDirItem: TDirStructItem;
  Root: TTreeNode;
  Path: string;
begin
  // проходим по структуре состоящей из TDirStructItem  
  Root := tv1.Items.AddObject(nil, 'root', RootDirItem);
  // ...
  tv1.Items.AddChildObject(Root, 'child', NextDirItem);
  // и т.д.

  // из конкретного TreeNode получаем путь
  Path := TDirStructItem(tv1.Items.Item[i].Data).DirPath;
end;
-2

Воспользовался функцией SelectDirectory.
Просто и более, менее удобно для быстрого программирования:

Path := 'C:\';
  if FileCtrl.SelectDirectory(Path, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Edit1.Text := Path;

UPD. Иногда, от программки, которая делает лишь backup, многого и не требуется.
Speed run coding есть и иногда стоит к нему прибегать, когда надо что-то навоять для внутреннего пользования и не тратя много на это времени.
Не коммерческий продакшн ведь.
По началу вообще хотел cmd-шку сделать. Но решил потренировать мозг себе.
А тут гуру налетели, дескать - сложное программирование, есть тру программирование!
Я просто удивился, что прожект в Delphi 7 нормально компилировался, в XE ругнулся на ShellTreeView. Вот и всего лишь.

P.S. Иногда в жизни важен лишь результат.

3
  • Если нужно просто выбрать папку, то ваш вариант однозначно быстрее :) 31 мая 2018 в 10:58
  • @kot-da-vinci - от программки, которая лишь делает backup другого и не требуется. Speed run coding иногда стоит к нему прибегать. По началу вообще хотел cmd-шку сделать. Но решил потренировать мозг себе. А тут гуру налетели, дескать - сложное программирование, есть тру программирование! Я просто удивился, что листинг в 7-ке нормально компилировался, в XE ругнулась на ShellTreeView. Вот и всего лишь.
    – I_CaR
    31 мая 2018 в 12:21
  • 1
    Неплохой ответ, но на какой-то другой вопрос, а не на заданный. Лучше уберите.
    – Kromster
    31 мая 2018 в 12:34

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.