PuedeS pRobar a acceder con la propiedad
CheckedIndexes de los
Items.
Algo así:
Código Delphi
[-]
procedure TForm2.ListView1Click(Sender: TObject);
var
str:String;
lItems:TArray;
i:integer;
begin
lItems := ListView1.Items.CheckedIndexes();
Str := '';
for I := 0 to Length(lItems) - 1 do begin
Str := Str + ' ' + IntToStr(lItems[i]);
end;
Caption := Str;
ListBox1.Clear;
for I := 0 to Length(lItems) - 1 do begin
ListBox1.Items.Add(ListView1.Items.Item[lItems[i]].Text);
end;
end;