Текущий архив: 2009.04.12;
Скачать: CL | DM;

Вниз

ShellListView вместо FileListBox   Найти похожие ветки 

← →
Zheksonz   (2009-02-26 12:24) [0]

имеется, следующий ниже, несложный код, который перебирает и обрабатывает выделенные файлы.

for n := 0 to (FileListBox1.Items.Count - 1) do begin
 try
   if FileListBox1.Selected[n] then
   begin
     if not FileExists(FileListBox1.Items.Strings[n]) then begin
       MessageDlg("File: " + FileListBox1.Items.Strings[n] +
                  " not found", mtError, [mbOk], 0);
       Continue;
     end;
   ShowMessage(FileListBox1.Items.Strings[n]);
   end;
  finally
  { do something here }
  end;
 end;
ShowMessage("Обработка завершена!");
end;

Хотелось бы использовать для этих же целей компонент ShellListView, но справки по нему я не нашёл, использования в дэмосах тоже нет((

Количество выделенных  - ShellListView1.SelCount-1, а вот как перевести остальные ф-ции???

Johnman и Сергей М., прошу не беспокоить.

---

← →
Zheksonz   (2009-02-26 12:28) [1]

ShowMessage(FileListBox1.Items.Strings[n]);

упс, вот эта строчка лишняя и не несёт смысловой нагрузки...

---

← →
Zheksonz   (2009-02-26 17:29) [2]

Встретил множество подобных вопросов в интернете, но ответа нигде нет.

Вариант о вселенском заговоре рассматривается, но он не основной. Остаётся вариант с не изученностью подобного вопроса. Но если он и здесь не изучен, то придется обращаться в корпорацию Борланд.

---

Страницы: 1 вся ветка

Текущий архив: 2009.04.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c