- procedure TForm1.N5Click(Sender: TObject);
- var
- idex: Integer;
- TmpList1, TmpList2, TmpupList: TListItem;
- begin
- TmpList1 := lv2.Selected;
- if TmpList1 = nil then Exit;
- idex := TmpList1.Index;
- if idex = 0 then Exit;
- TmpList2 := lv2.Items[idex - 1];
- lv2.Items.BeginUpdate;
- try
- TmpupList := lv2.Items.Add;
- TmpupList.Assign(TmpList1);
- TmpList1.Assign(TmpList2);
- TmpList2.Assign(TmpupList);
- TmpList2.Selected := True;
- lv2.SetFocus;
- finally
- TmpupList.Delete;
- lv2.Items.EndUpdate;
- end;
- end;
- procedure TForm1.N6Click(Sender: TObject);
- var
- idex, iCount: Integer;
- TmpList1, TmpList2, TmpdwList: TListItem;
- begin
- TmpList1 := lv2.Selected;
- if TmpList1 = nil then Exit;
- idex := TmpList1.Index;
- iCount := lv2.Items.Count - 1;
- if idex = iCount then Exit;
- TmpList2 := lv2.Items[idex + 1];
- lv2.Items.BeginUpdate;
- try
- TmpdwList := lv2.Items.Add;
- TmpdwList.Assign(TmpList1);
- TmpList1.Assign(TmpList2);
- TmpList2.Assign(TmpdwList);
- TmpList2.Selected := True;
- lv2.SetFocus;
- finally
- TmpdwList.Delete;
- lv2.Items.EndUpdate;
- end;
- end;
Listview中行之间的上下移动
最新推荐文章于 2020-05-20 16:51:29 发布