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)

附件列表

转载于:https://www.cnblogs.com/xe2011/p/3876253.html

ListView上移和下移相关推荐

php ajax实现上移,jquery实现标签上移、下移、置顶_jquery
eg:如在后台的标签列表中,实现上移.下移.置顶功能主要实现思路是节点操作,比如说:上移,直接把点击项移动到前一个节点,以此类推,当然实际代码实现还要加些判断,如当前点击操作项是否已经是置底或置底了 ...
IDEA 快捷键代码上移一行下移一行快捷键 try catch 块快捷键
文章目录前言快捷键常用 [调试部分.编译] [重构] [查找] 前言写代码的时候看到大神的一些帅气的操作,于是拷贝整理了一下,主要是为了方便自己查阅. 快捷键常用按键功能 Ctrl+Al ...
element table 表格实现上移、下移
业务场景:有时候需要前端实现上移和下移功能代码如下: 根据交互形式,我这里是把第一条数据的上移按钮置灰不可点击::disabled="scope.$index == 0":最后一 ...
c语言16左移3位,点阵16*32综合(间断、上移、下移、左移、右移、左拉、右拉)C程序...
点阵16*32综合(间断.上移.下移.左移.右移.左拉.右拉)C程序,硬件电路:行驱动74HC154+S8550三极管,列驱动74HC595,具体原理图祥见:http://www.51hei.com/ ...
java 基于jeecg-boot的公告管理——上移、下移、置顶
一.后端实体类: package org.jeecg.modules.bidding.entity;import java.io.Serializable; import java.io.Unsup ...
基于jquery框架实现以行的添加、上移、下移和删除操作
基于jquery框架实现以行的添加.上移.下移和删除操作 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN&q ...
ASP.Net中的TreeView控件中对节点的上移和下移操作
Web中的TreeView中的没有PreNode和NextNode属性. 但它的集合属性中有一个IndexOf属性,从而能够找到它的前一个节点知后一个节点. TreeView中要么只有一个根节点:要么 ...
DataGridView怎样实现添加、删除、上移、下移一行
场景在Winform中使用DataGridView实现添加一行.删除一行.上移一行.下移一行. 注: 博客主页: https://blog.csdn.net/badao_liumang_qizhi ...
前端学习（1644）：前端系列实战课程之上移和下移

ListView上移和下移

附件列表

ListView上移和下移相关推荐

最新文章

热门文章

ListView上移 和下移

附件列表

ListView上移 和下移相关推荐

最新文章

热门文章

ListView上移和下移

ListView上移和下移相关推荐