ListView添加項(xiàng)目帶序列 function AddSelItems(listview1:TListView;ListView2:TListView):Boolean;
var
??s: string;
??I,j: Integer;
begin
??Result:=False;
??if listview1.Selected =nil then??exit;
?
??for i := 0 to listview1.items.count - 1 do
??begin
?????j:=ListView2.Items.Count;
????if listview1.items[i].selected then
?
??????with ListView2.Items.Add do
??????begin
????????Caption:=IntToStr(j);
????????SubItems.add( listView1.Items[i].Caption );
????????SubItems.add('FileName2');
??????end;
??end;
??Result:=True;
end;
?
?
procedure TForm1.Button1Click(Sender: TObject);
begin
???AddSelItems(ListView1,ListVIew2);
end;

來自為知筆記(Wiz)

附件列表

?

轉(zhuǎn)載于:https://www.cnblogs.com/xe2011/p/3876254.html

總結(jié)

以上是生活随笔為你收集整理的ListView添加项目带序列的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。