私は非常にあなたを求める、と私はlistview2に追加されたListViewサムネイルを表示したい、私はどのように？求めることができる
次の関数は、最初の画像が、すべてのListView1のlistview2リストビューサムネイル表示に追加することができますが、ファイル名が決定されますしかし、画像が最初に表示されます。
関数MoveLvItem（lvOrig、lvdest：TListViewの;チェックする：ブール=偽）：文字列;
VaRのI、J：整数;
ITEMLIST：TObjectListを。
ListItem、newlistitem：TListItemの。
開始
ITEMLIST：= TObjectList.Create（偽）;
チェックされていない場合は、その後
始める
私のために：= lvOrig.Selected.Index lvOrig.Items.Countに-1ん
開始
lvorig.Items [i]を.Selectedその後、ItemList.Add（lvorig.Items [i]）と場合。
終わり;
終了
他
始める
私のために：lvorig.Items.Countへ= 0 -1ん
始める
場合lvorig.Items [i]が.checkedを、その後itemlist.Add（lvorig.Items [I]）;
終わり;
終わり;
itemlist.Countへ= 0 -1行う：iに対する
開始
リストアイテム：TListItemのよう= itemListの[I]を、
newlistitem：= lvdest.Items.Add。
newlistitem.Caption：= listitem.Caption。
ただしj = 0 listitem.SubItems.Count -1ん
開始
newlistitem.SubItems.Add（listitem.SubItems [J]）。
終わり;
終わり;
結果：=（itemListの[0] TListItemのような）.Caption。
（ITEMLIST [0] TListItemのような）.Delete。
ItemList.Countへ= 1 -1ん。私のために
始める
結果：=結果+ '' + .Caption（TListItemのようITEMLIST [-1]）;
（ITEMLIST [1] TListItemのような）.Delete。
終わり;
ItemList.Free;
終わり;