如何从TVirtualStringTree中删除所有节点?

时间:2012-12-11 13:18:06

标签: delphi delphi-xe virtualtreeview tvirtualstringtree

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

1 个答案:

答案 0 :(得分:5)

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

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