正序删除虚拟树所选择的行技巧

最新推荐文章于 2025-08-02 19:17:36 发布

weixin_34377919

最新推荐文章于 2025-08-02 19:17:36 发布

阅读量67

点赞数

本文介绍了一个使用VSTreeView控件时的实用方法：如何从上到下依次删除所有选中的节点，避免了因直接删除造成的索引错位问题。

procedure TForm1.miDelClick(Sender: TObject);
var
  Node: PVirtualNode;
  item: TUpdataFile;
  index, ioffset: integer;
begin
  ioffset := 0;
  Node := self.vstFiles.FocusedNode;
  if (not Assigned(Node)) then
    Exit;
  if (self.vstFiles.SelectedCount < 1) then
    Exit;
  try
    self.vstFiles.BeginUpdate;
    Node := vstFiles.GetFirstSelected(); // 特点从第一个选择开始删除的
    while Assigned(Node) do
    begin
      item := self.fPack.List[Node.index - ioffset]; // 技巧 2017-1-19 11:27
      self.fPack.DelFile(item);
      Node := vstFiles.GetNextSelected(Node);
      inc(ioffset); //每删除一个，就记录以及删除了多少个
    end;

  finally
    self.vstFiles.RootNodeCount := self.fPack.List.Count;
    self.vstFiles.EndUpdate;
    self.vstFiles.Invalidate;
  end;

end;