首页 > 代码库 > ListView上移 和下移
ListView上移 和下移
有问题
//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)
附件列表
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。