高分请教大侠，如何在Delphi中实现一个文件夹中所有图像文件的小图像预览？

Question

我想在Delphi中实现一个文件夹中所有图像文件的小图像预览，类似在Acdsee中图像预览一样。请教大侠，谢谢！

Answer 1

首先列举文件夹里的文件名称，
放多个Image，设置高宽和位置之后，设置 Strech 为 True，然后依次装如文件就行了。

Answer 2

放多个Image，那要是有几百个Image，岂不是要放几百个Image，那要多少内存空间啊。动态生成控件呐，

Answer 3

直接在CANVAS上画出来不可以么？
var
  Bitmap : TBitMap;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do begin
      LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
      Transparent := True;
      TransParentColor := BitMap.canvas.pixels[50,50];
      Form1.Canvas.Draw(0,0,BitMap);
      TransparentMode := tmAuto;   // Transparent color now is clDefault = TColor($20000000);
      Form1.Canvas.Draw(50,50,BitMap);    end;
  finally
    Bitmap.Free;
  end;

Answer 4

直接在Canvas上画的方法比较好。

Answer 5

我有这样一个控件，速度很快。只不过现在支持Bmp和Jpg的格式，其它格式你可以自己加。