删除 IWTreeViewItems 导致表单发布异常

Question

在我的表单上，我有一个 IWTreeView 和两个按钮。一个按钮删除一些 IWTreeViewItems，另一个按钮释放表单：

procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
  IWTreeView1.Items[0].Subitems.Clear;
end;

procedure TIWForm1.IWButton2Click(Sender: TObject);
begin
  Release;
end;

删除 IWTreeViewItems 后释放表单会导致异常：

引发的错误消息 应用程序：访问冲突 模块中地址004E0D8A 'TryTree.exe'。读取地址 00000000

当有另一个表单处于活动状态并且应用程序没有被此表单释放终止时，错误消息为：

引发的错误消息 应用程序：列出索引 界限（-1）

使用 IntraWeb 9.0.42（由于 TMS 控件和 Delphi 2006，TMS 尚未使用 10.0.17 和 Delphi 2006 进行测试）。

我尝试以 IWTreeView1.ClearAll 形式销毁，但这根本没有帮助。

Answer 1

而不是 SubItems.Clear

for i := IWTreeView1.Items[0].SubItems.Count-1 downto 0 do begin
    TIWTreeViewItem(IWTreeView1.Items[0].SubItems[i]).Free;
end;

我现在使用This Works， 。仍然对更好的解决方案持开放态度，也许不涉及遍历所有子项的循环。