virtualtreeview 添加图标失败

Question

这是我将文件名及其关联图标添加到 virtualtreeview 的简单代码

  PFileInfoRec = ^TFileInfoRec;
  TFileInfoRec = record
    strict private
      vFullPath: string;
      vFileName: string;
      vFileIcon: hIcon;
    public
      constructor Create(const FullPath: string);
      property FullPath: string read vFullPath;
      property FileNam : string read vFileName;
      property FileIcon: hIcon read vFileIcon;
  end;

在我使用 shGetFileInfo Api 获得图标句柄后

procedure TMainFrm.VSTGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
var
  FileInfo: PFileInfoRec;
  Icon: TIcon;
begin
  FileInfo := Sender.GetNodeData(Node);
  Icon := TIcon.Create;
  try
    Icon.Handle := FileInfo.FileIcon;
      if Kind in [ikNormal , ikSelected] then
      begin
        if Column = 1 then ImageIndex := ImageList.AddIcon(Icon);
      end;
  finally
    Icon.Free; //here the probelme
  end;
end;

删除 Icon.Free 时让我感到困惑的是什么；代码工作正常文件添加了图标 但是当免费的 TIcon 对象添加图标失败！任何人向我解释 这段代码有什么问题？？

提前感谢您的帮助...

Answer 1

首先，您必须停止在OnGetImageIndex 中调用ImageList.AddIcon。我不会详细重复这些建议，只是将您推荐给your previous question。

至于这里发生了什么，这就是正在发生的事情：

1. 您创建一个图标句柄vFileIcon。
2. 然后您将该图标的所有权传递给TIcon 实例。
3. 您释放了图标实例，这反过来又删除了图标句柄。
4. 下次您调用OnGetImageIndex 时，图标句柄vFileIcon 指的是已销毁的句柄，因此您使用该图标的尝试自然会失败。

将此图标添加到图像列表的最简单方法实际上是使用ImageList_AddIcon，而无需费心创建TIcon 实例。

FileInfo := Sender.GetNodeData(Node);
ImageList_AddIcon(ImageList.Handle, FileInfo.FileIcon);

---

当TIcon 实例被销毁时，可以使用TIcon 而不会销毁句柄。调用ReleaseHandle 告诉TIcon 实例它不再拥有图标句柄。

Icon := TIcon.Create;
try
  Icon.Handle := SomeIconHandle;
  SomeImageIndex := ImageList.AddIcon(Icon);
  Icon.ReleaseHandle;
finally
  //because ReleaseHandle was called, this no longer destroys the icon handle
  Icon.Free;
end;