[StingeR]

Есть 2 компонента: TTreeView, в котором отображаются диски и папки и TListView, где располагаются файлы и вложеные папки.

Вопрос : как в Edite отображать путь ????

[san-46]

Код:

  
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.

[StingeR]

Напиши пожалуйста этот способ!

[san-46]

Находим закладку в палитре компонентов "Samples", кидаем на форму ShellTreeView и рядом ShellListView. В ShellListView свойству "ShellTreeView" присваиваем ShellTreeView1 (или как вы там его назовете после того как размеcтите на форме).
Получить полный путь к файлу так:

Код:

Edit1.Text := ShellListView1.SelectedFolder.PathName

Можно по клику на файле (есть событие OnClick), можно через кнопку или как заблагорассудится.
Эти компоненты имеют много всяческих настроек, через которые их вид и вид отображаемых элементов (файлов, папок) можно настроить по своему вкусу.