如何将缩略图视图添加到Delphi中的tshelllist?

如果你只想比默认的大图标,你可以调整你使用的timagelist的大小。 下面的示例是针对tlistview的,但是您将得到

const 
  PreviewSize = 128;
type
  TForm1 = class
    PreviewList: TImageList;
    List: TListView;
...

  PreviewList.Width = PreviewSize;
  PreviewList.Height = PreviewSize;
  PreviewList.Add(MyBitmap, Nil);
  List.Add.ImageIndex:=0;

我没有使用tshelllist组件。但是,如果您愿意查看不同的组件,请尝试 VirtualShellTools from Mustang Peak . 有一个小的学习曲线与组成部分,但我发现它非常适合我的需要。我使用TvirtualExplorerEasyListView并将其指向一个目录,它完成了为该目录中的图像创建缩略图的所有工作。