如何在listview选择多行,然后将选择的项值取出来,放在另一个listview?

解决方案 »

  1.   

    设置listview的属性multiselect=true;
      

  2.   

    for i:= 0 to ListView1.Items.Count-1 do
    begin
      if ListView1.Items[i].Selected then
        Item:=ListView2.Items.add;
        Item.Caption:=ListView1.Items[i].Caption
    end;
      

  3.   

    var
      I: Integer;
    begin
      for I := 0 to ListView1.Items.Count - 1 do
        if ListView1.Items[I].Selected then
          with ListView2.Items.Add do
          begin
            Caption := ListView1.Items[I].Caption;
            SubItems.Text := ListView1.Items[I].SubItems.Text;
            ImageIndex := ListView1.Items[I].ImageIndex;
          end;
    end;