Показать сообщение отдельно
  #9  
Старый 28.09.2011, 14:17
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

Как я понял автор хочет чтобы сами файлы были в одном окне
Я сам подумываю о таком, но это не будет похоже на проводник

Самый примитивный вариант:
PHP код:
uses ShellCtrl;
var
  
inInteger;
begin
  n 
:= memo1.Lines.Count;
  for 
:= 0 to n do
    
with TShellListView.Create(Form1)  do
    
begin
      Parent 
:= Form1;
      
Root := memo1.Lines.Strings[i];
      
Width := Form1.ClientWidth;
      
Left := 0;
      
Height := Form1.ClientHeight div n;
      
Top :=  Form1.ClientHeight div n *i;
    
end;
end

можно сделать круче, если пройтись по нужным папкам и создать на все файлы ярлыки во временную папку, а её открыть в проводнике, но тогда проблема их сгруппировать
Ответить с цитированием