ShellTreeView и его свойство Root

@yurdmitriev · Регистрация: 16.06.2018

Author24 — интернет-сервис помощи студентам

Доброго времени суток.

В проекте имеется несколько форм. Связал их между собой, всё как надо. На первой форме я сделал выбор папки, а путь к ней записал в переменную dir_pc. Код процедуры прилагаю:

Delphi

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  If SelectDirectoryDialog1.Execute then
     dir_pc:=SelectDirectoryDialog1.Filename;
  nextbt.Enabled:=true;
  If Length(dir_pc) = 0 then
     begin
       MessageDlg('Ошибка', 'Вы не выбрали папку с игрой', mtError, [mbOk], 0);
       RadioButton1.Checked:=false;
     end;
end;

Теперь, на другой форме находится ShellTreeView. В коде написал следующее:

Delphi

1	ShellTreeView1.Root:=dir_pc;

Написать то написал, но оно не работает как надо. Выдаёт мне список всех дисков, подключенных к ПК(C:\, D:\, F:\ и прочие)

Покажите или ткните носом, пожалуйста, как всё правильно надо сделать. Буду очень благодарен.

@qwertehok · 16.06.2018, 21:54

если сделано SelectDirectoryDialog1.Execute то уже 100% точно выбрано
и проверки не нужны

Сообщение от yurdmitriev

но оно не работает как надо.

проверь перед использованием - сделай

Delphi

1	Showmessage(dir_pc)

так же отладчик есть

@yurdmitriev · 16.06.2018, 22:34 **[ТС]**

Проверял значение этой переменной(несколько раз)
Написан тот путь к папке, которую выбрал.
Только почему ShellTreeView не показывает только эту папку?

@qwertehok · 17.06.2018, 11:06

значит ты не там присваиваешь или не так работаешь с компонентом

@yurdmitriev 0 / 0 / 0 Регистрация: 16.06.2018 Сообщений: 5
	16.06.2018, 22:34 [ТС]	3
	Проверял значение этой переменной(несколько раз) Написан тот путь к папке, которую выбрал. Только почему ShellTreeView не показывает только эту папку? 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	17.06.2018, 11:06	4
	значит ты не там присваиваешь или не так работаешь с компонентом 0