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;

 
 
 
 
 
 
 
 
 
 

附件列表

上一篇:【java规则引擎】《Drools7.0.0.Final规则引擎教程》第4章 4.2 agenda-group


下一篇:Atitit.升级软件的稳定性---基于数据库实现持久化 循环队列 循环队列