TreeView из папок на локальном диске

[Hissin]

Всем Доброго времени суток! Вопрос новичка по теме-как создать дерево папок в TreeView? Или как отобразить вложенные папки (дерево папок) в программе? Пробовал такие элементы как VirtualTreeView--показались ну очень сложными-мне нужно проще-отображать структуру пложенных папок и чтобы можно было создавать папки\в подпапках\изменять, переименовывать удалять-нашел элемент ShellTreeView-идеально! Но там нет меню добавить папку, нашел код как добавлять и обновлять, но не работает! Все время работает с ошибками, Может мне подойдет TreeView? как все это реализовать? Помогите пожалуйста!!!

[Stilet]

Могу порекомендовать вот это:http://www.programmersforum.ru/showt...eeViewExplorer
Хотя бы для ознакомления.

[kropotkina-alice]

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

нашел элемент ShellTreeView-идеально! Но там нет меню добавить папку, нашел код как добавлять и обновлять, но не работает! Все время работает с ошибками

???
Вроде бы просто все...

procedure TForm1.PopupMenuN1Click(Sender: TObject);
begin
PopupMenuEdit1.Text:='';
GroupBox1.Visible:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if createdir(ShellTreeView1.Path+'\'+PopupMenuEdit1.Text) = true then 
showmessage('Директория успешно создана') 
else 
showmessage('При создании директории произошла ошибка');
GroupBox1.Visible:=False;
end;

[Hissin]

А я так делал:

procedure TForm1.Button1Click(Sender: TObject); // нажатием на кнопочку "создать папку"
begin
mkdir(ShellTreeView1.SelectedFolder.PathName + '/новая папка'); // создаем новую папку
ShellTreeView1.Selected.Expanded:=false; // если выбрали обновляем
ShellTreeView1.Selected.SelectedIndex:=ShellTreeView1.Selected.SelectedIndex; // если невыбрали\выбрали обновляем
ShellTreeView1.Selected.Expanded:=true; \\обновляем

Код спер, он работает, но с грешком попалам) -посмотрите, если Вам (Алиса?) интересно, чтобы меня понять, давно уже об эту проблему бьюсь... и спасибо Вам за ответ!

Сообщение от kropotkina-alice

???
Вроде бы просто все...

procedure TForm1.PopupMenuN1Click(Sender: TObject);
begin
PopupMenuEdit1.Text:='';
GroupBox1.Visible:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if createdir(ShellTreeView1.Path+'\'+PopupMenuEdit1.Text) = true then 
showmessage('Директория успешно создана') 
else 
showmessage('При создании директории произошла ошибка');
GroupBox1.Visible:=False;
end;

[Hissin]

Хотел было попробовать использовать ваш элемент ETreeViewExplorer, но выдает ошибку


13123123123123123123.JPG


как ни пытался -не получилось, нашел "совет" на форуме по установке компонентов "использовать другой компонент"-якобы битый.
Пробовал устанавливать его как копонент. (ошибка выше) Засовывал а папку с проектом-все одинаково

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

Могу порекомендовать вот это:http://www.programmersforum.ru/showt...eeViewExplorer
Хотя бы для ознакомления.

[Stilet]

Честно говоря я уже не помню как на Д7 компоненты устанавливать.
Вообще я этот компонент на палитру в Делфи не кидал. Ручками в программе прописывал его создание и освобождение.