如何在事件处理程序中删除所有节点,包括VirtualStringTree后代,关闭包含VirtualStringTree的表单?
答案 0 :(得分:5)
要删除TVirtualStringTree
或其后代中的所有节点,请使用Clear
方法(但请注意Clear
方法是虚拟的,可以被某些后代覆盖。但是,实现者应保留此方法的原始目的,即清除树。如果没有,那么在我看来这只是一个错误的实现:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
VirtualStringTree1.Clear;
end;