能写出这样的组件吗？(100分)

就像ACDSEE右边框的缩略图控件，可以用来显示TJPEGImage的图片。又可以响应单击或又事件。

TImage已经可以了啊

用image不行吗？只是加个jpeg单元就可以支持jpg格式图片了

谢谢回答，因为用TImage太慢了，消耗了很多内存。

请查看
C:/Program Files/Borland/Delphi6/Demos/ImagView
(DELPHI5,6,7都有)

谢谢，DELPHI自带的不支持JPG格式，而我要的不但是支持JPG格式，还要像ACDSEE一样在右边生成缩略图。

不是这样的，你只要在那个例子里的uses引用 JPEG单元
uses Windows, Classes, Graphics, Forms, Controls,
FileCtrl, StdCtrls, ExtCtrls, Buttons, Spin, ComCtrls, Dialogs,jpeg;//注意最后这一个
然后在程序中做一些修改就可以了
FileExt := AnsiUpperCase(ExtractFileExt(FileListBox1.Filename));
if (FileExt = '.BMP') or (FileExt = '.ICO') or (FileExt = '.WMF') or
(FileExt = '.EMF')or (FileExt = '.JPG') then
begin
Image1.Picture.LoadFromFile(FileListBox1.Filename);
Caption := FormCaption + ExtractFilename(FileListBox1.Filename);
if (FileExt = '.BMP') or (FileExt = '.jPg')then
begin
Caption := Caption +
Format(' (%d x %d)', [Image1.Picture.Width, Image1.Picture.Height]);
ViewForm.Image1.Picture := Image1.Picture;
ViewForm.Caption := Caption;
if GlyphCheck.Checked then ViewAsGlyph(FileExt);
end
else
GlyphCheck.Checked := False;
if FileExt = '.ICO' then
begin
Icon := Image1.Picture.Icon;
ViewForm.Image1.Picture.Icon := Icon;
end;
if (FileExt = '.WMF') or (FileExt = '.EMF') then
ViewForm.Image1.Picture.Metafile := Image1.Picture.Metafile;
end;
还有一些将
FileEdit.text：=*.bmp;*.ico;*.wmf;*.emf;*.jpg；
FilterComboBox1.Filter：=Image Files (*.bmp, *.ico, *.wmf, *.emf)|*.bmp;*.ico;*.wmf;*.emf|Bitmap Files (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Metafiles (*.wmf, *.emf)|*.wmf;*.emf|All files (*.*)|*.*|jpg(*.jpg)|*.jpg；
这样就可以了，你试一下吧

谢谢楼上，这样是可以，但是速度慢得惊人，当一打开的目录有很多图片时，我要对这些图片以缩略图的形式显示，这时就很慢了。

怎么都帮回答的人这么少呢？是不是说得不清楚。

呵呵。。怎么老是和行业领域里的龙头老大争高低啊？人家有那么高的效率。用了多少C++代码。用了多少钱在算法优化上？你想用个随便找来就能用的VCL。一行代码都不写。就要和人家一样快。一样省内存？？？？？

同意楼上