delphi - 如何从 TVirtualStringTree 中删除所有节点？

Question

如何在事件处理程序中删除所有节点，包括 VirtualStringTree 后代，关闭包含 VirtualStringTree 的表单？

Answer 1

要从 aTVirtualStringTree或其后代中删除所有节点，请使用该Clear方法（但请注意，该Clear方法是虚拟的，可以被某些后代覆盖。但是，实现者应保持此方法的原始目的，即清除树。如果没有，那么在我看来，这只是一个错误的实现：

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  VirtualStringTree1.Clear;
end;