| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ShellListView вместо FileListBox [D7, XP]

Zheksonz ©   (2009-02-26 12:24:00) 

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

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 17:29:00) [1]

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

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

---

Zheksonz   (2009-02-26 12:28:00) [2]

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

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

---

Наверх