netail.net
自作フリーソフトや,ゲームに関する雑記を公開してます.
日記はソフトウェア工学の論文ネタが中心です.
最近のお知らせ (古いものはこちら)
2003-12-03 古い日記からの変換データ [長年日記] ▲
_ [Delphi] TListView のアイテム交換 ▲
(レイアウト崩れていたので2005/11/10修正) TListView がどうやら任意の二つのアイテムの位置交換ができないようなので,自前で 削除 → 挿入をすることに.ItemIndex と同時に FocusedItem も動かさないとフォーカスだけ取り残されてかっこ悪いことになる.引数: index1, index2: integer; ListView.Items.BeginUpdate; ListView.Items.Delete(index1); item := ListView.Items.Insert(index2); FItemList.Exchange(index1, index2); updateItem(item, FItemList[index2]); // item に値をセット ListView.ItemFocused := item; ListView.ItemIndex := Index2; ListView.Items.EndUpdate;