[Delphi_Source]

Сообщение от poli-smen

Естественно удерживая клавишу Ctrl чтобы выделять поштучно или Shift чтобы выделять диапазон.
Если речь идёт о ShellListView, то ещё нужно у него установить свойство MultiSelect в True.

А в Memo должен отображаться список выделенных файлов для печати?

[poli-smen]

Сообщение от Delphi_Source

А в Memo должен отображаться список выделенных файлов для печати?

А в каком сообщении этой темы было написано что список должен отобразиться ещё и в Memo?

[Delphi_Source]

Дело в том, что когда выводил в текстовое поле путь к выбранным в компоненте класса TShellListView объектам весь результат описывался в Memo. Вот поэтому и уточняю

[poli-smen]

Печатает на принтере и выводит в Memo:

Код:

uses Printers;
   
procedure TForm1.Button2Click(sender: tobject); 
var
  Prn: TextFile; 
  i: integer; 
begin
  if ShellListView1.SelCount = 0 then
    raise Exception.Create('Ничего не выделено');
 
  AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
  Rewrite(Prn); // Готовим принтер к печати
  
  Memo1.Clear;
  // Цикл печати: 
  for i := 0 to ShellListView1.Items.Count - 1 do
  begin
    if ShellListView1.Items[i].Selected then
      Writeln(Prn, ShellListView1.Folders[i].PathName);

    Memo1.Lines.Add(ShellListView1.Folders[i].PathName);
  end;
   
  CloseFile(Prn);
end;

[Delphi_Source]

Вот это и имел ввиду.
Теперь все работает.
В очередной раз большое спасибо

[poli-smen]

Сообщение от Delphi_Source

Вот это и имел ввиду.
Теперь все работает.
В очередной раз большое спасибо

Нашёл у себя ошибку - вот так должно быть (иначе в Memo будут выводиться не выделенные, а все элементы):

Код:

uses Printers;
    
procedure TForm1.Button2Click(sender: tobject); 
var
  Prn: TextFile; 
  i: integer; 
begin
  if ShellListView1.SelCount = 0 then
    raise Exception.Create('Ничего не выделено');
  
  AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер 
  Rewrite(Prn); // Готовим принтер к печати
   
  Memo1.Clear;
  // Цикл печати: 
  for i := 0 to ShellListView1.Items.Count - 1 do
  begin
    if ShellListView1.Items[i].Selected then
    begin
      Writeln(Prn, ShellListView1.Folders[i].PathName);
      Memo1.Lines.Add(ShellListView1.Folders[i].PathName);
    end;
  end;
    
  CloseFile(Prn);
end;