VPF::список файлов - в ListView - Форум программистов

Чердак

Дата 26.5.2005, 20:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 8.12.2004

Репутация: нет
Всего: нет

В проге у меня есть TTreeView и TListView. В TTreeView выводятся папки, не могу организовать, чтобы при щелчке на папке(если в ней нет больше папок) выводилось ее содержимое (файлы) в TListView. smile

Может у кого-нить есть пример. Очень нужно.

--------------------

[email protected]

Albinos_x

Дата 26.5.2005, 20:43 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

А использовать ShellTreeView1 и ShellListView1 пробовал?

если подойдут, то

ShellListView1.ShellTreeView:=ShellTreeView1;

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Quadr0

Дата 26.5.2005, 21:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:50

Albinos_x

Дата 26.5.2005, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата

Тормозиииит..., жуть...

у меня только при загрузке проги, а так вроде ничего...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Чердак

Дата 26.5.2005, 22:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 195
Регистрация: 8.12.2004

Репутация: нет
Всего: нет

Quadr0 , согласен, что тошно стало smile

, мне кажется это инфа все время обрывается на том , что я ищу. Пришлось самому вымудрять, если кому нужно, то при жмакании на папке в TTreeView в TListView появляются файлы.

Код


procedure UpdateFiles;
var
sr: TSearchRec;
li: TListItem;
fi: TSHFileInfo;
Node:  TTreeNode;
ext,l: string;
m: boolean;
begin
Form1.ListView1.Items.BeginUpdate;
Form1.ListView1.Items.Clear;
l:='';
Node:=form1.TreeView1.Selected;
l:=node.Text;
While (node.text<>'A:')and(node.text<>'E:')and(node.text<>'C:') do begin
node:=node.GetPrev;
if node.GetNext.HasAsParent(node) then  l:= node.Text+'\'+l;
end;

if FindFirst(l +'\*.*', faAnyFile, sr) = 0 then repeat
if sr.Attr and faDirectory <> 0 then continue;
li := Form1.ListView1.Items.Add;
li.Caption := sr.Name;
until FindNext(sr) <> 0;
FindClose(sr);
Form1.ListView1.Items.EndUpdate;
end;

толко правда без иконок

--------------------

[email protected]

Quadr0

Дата 26.5.2005, 23:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:51

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »