|
#1
|
|||
|
|||
TListView
Есть 2 компонента: TTreeView, в котором отображаются диски и папки и TListView, где располагаются файлы и вложеные папки.
Вопрос : как в Edite отображать путь ???? |
#2
|
|||
|
|||
Код:
procedure TForm1.Button4Click(Sender: TObject); var TN : TTreeNode; S : String; begin if (TreeView1.Selected <> nil) and (ListView1.Selected <> nil) then begin S := ''; TN := TreeView1.Selected; while TN <> nil do begin S := TN.Text + S; TN := TN.GetPrev; if TN <> nil then S := '\' + S; end; Edit1.Text := S + '\' + ListView1.Items[ListView1.ItemIndex].Caption end; end; Есть, правда, менее извращенный способ, если применять ShelTreeView и ShellListView. Не забывайте делать резервные копии |
#3
|
|||
|
|||
Напиши пожалуйста этот способ!
|
#4
|
|||
|
|||
Находим закладку в палитре компонентов "Samples", кидаем на форму ShellTreeView и рядом ShellListView. В ShellListView свойству "ShellTreeView" присваиваем ShellTreeView1 (или как вы там его назовете после того как размеcтите на форме).
Получить полный путь к файлу так: Код:
Edit1.Text := ShellListView1.SelectedFolder.PathName Эти компоненты имеют много всяческих настроек, через которые их вид и вид отображаемых элементов (файлов, папок) можно настроить по своему вкусу. Не забывайте делать резервные копии |