? ? ? ? ? 有問題
//ListBox選中的項目移動到第1位 ? Listbox1.Items.Move(ListBox1.ItemIndex,0); ? //ListView選中的項目移動到第1位 ? procedure TForm1.Button5Click(Sender: TObject);
var
????sel:String;
begin
????with ListView1 do
????begin
????????sel:=Selected.Caption;
????????Items.Insert(0).caption:=sel;
????????DeleteSelected;
????????SetFocus;
????????Items[0].Selected:=True;
????end;
end; ? ? //TreeView選中的項目移動到第1位 ? //ListView上移 和下移 procedure ListViewItemMoveUpDown(lv: TListView; Item: TListItem; MoveUp, SetFocus: Boolean);
var
??DestItem: TListItem;
begin
??if (Item = nil) or
????((Item.Index - 1 < 0) and MoveUp) or
????((Item.Index + 1 >= lv.Items.Count) and (not MoveUp))
????then Exit;
??lv.Items.BeginUpdate;
??try
????if MoveUp then
??????DestItem := lv.Items.Insert(Item.Index - 1)
????else
??????DestItem := lv.Items.Insert(Item.Index + 2);
????DestItem.Assign(Item);
????lv.Selected := DestItem;
????Item.Free;
??finally
????lv.Items.EndUpdate;
??end;
??if SetFocus then lv.SetFocus;
??DestItem.MakeVisible(False);
end;
?
procedure TForm1.Button3Click(Sender: TObject);
begin
???ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True);//é?ò?
end;
?
procedure TForm1.Button4Click(Sender: TObject);
begin
???ListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True);//??ò?
end; ? ? ? ? ? ? ? ? ? ?

來自為知筆記(Wiz)

附件列表

?

轉載于:https://www.cnblogs.com/xe2011/p/3876253.html

總結

以上是生活随笔為你收集整理的ListView上移 和下移的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。