Delphi 2009 ShellTreeView / ShellListView修复 [英] Delphi 2009 ShellTreeView/ShellListView Fix

问题描述

当在IDE索引中的主窗体上使用ShellTreeView / ShellListView关闭Delphi 2009项目时，将生成超出范围（0）的异常。

解决方案

这是我第一次听说此问题。

解决方案

如果有什么安慰，我可以在这里复制。

您应该做的第一件事可能是在质量中心，然后在Codegear NNTP新闻组上询问。

此外，尝试将TCustomShellListView.GetFolder更改为以下代码，然后继续进行。您需要重建该软件包-并且请注意，由于某些原因，D2009会在Windows\System32中安装此软件包的第二个副本。我重命名了（到目前为止）没有不良影响。

  function TCustomShellListView.GetFolder（Index：Integer）：TShellFolder;如果Index< 
从
开始。 FFolders.Count然后
结果：= TShellFolder（FFolders [Index]）
 else 
结果：= NIL; 
结尾； 
  

When a Delphi 2009 project is closed with ShellTreeView/ShellListView on the mainform in the IDE Index out of bounds(0) exceptions are generated. Is there a fix for ShellTreeView/ShellListView so the exceptions can be eliminated?

解决方案

That's the first I've heard of this. If it's any consolation I can reproduce it here.

The first thing you should do is probably file a bug report in Quality Central, and ask on the Codegear NNTP Newsgroups.

Also, try changing TCustomShellListView.GetFolder to the code below, and see how you get on. You'll need to rebuild the package - and beware that for some reason D2009 installs a second copy of this package in Windows\System32. I renamed that with (so far) no ill effects.

function TCustomShellListView.GetFolder(Index: Integer): TShellFolder;
begin
  if Index < FFolders.Count then
    Result := TShellFolder(FFolders[Index])
  else
    Result := NIL;
end;

这篇关于Delphi 2009 ShellTreeView / ShellListView修复的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！