Hola de nuevo.
Agrega un item mas al
TPopupMenu (vg.: Copiar todo) y quedaría mas o menos así:
Código Delphi
[-]
...
implementation
uses Clipbrd;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
ListView1.RowSelect := True;
ListView1.MultiSelect := True;
end;
procedure TForm1.Copiar1Click(Sender: TObject);
var
c,f,k : Integer;
lv: TListView;
s : string;
begin
lv := ListView1;
if lv.SelCount = 0 then Exit;
Clipboard.Clear;
s := '';
for f := 0 to lv.Items.Count - 1 do
begin
k := 0;
if lv.Items[f].Selected then
begin
s := s + Format('%s : %s, ',[lv.Columns[k].Caption, lv.Items[f].Caption]);
for c := 0 to lv.Items[f].SubItems.Count - 1 do
begin
Inc(k);
s := s + Format('%s : %s, ',[lv.Columns[k].Caption, lv.Items[f].SubItems[c]]);
end;
SetLength(s, Length(s)-2);
s := s + #$D#$A;
end;
end;
Clipboard.AsText := s;
end;
procedure TForm1.Copiartodo1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ListView1.Items.Count - 1 do
Listview1.Items[i].Selected := True;
Copiar1Click(Sender);
end;
...
Saludos