关于treeview显示图象的问题 ( 积分: 100 )

我是新手，求利用treeview显示图象的编程，举个例子就行，但要完整（treeview至少包括四五项），能达到点击项目能在image处显示图片（JPG）的功能，最好可以按上下键来翻阅，谢谢高手指教，就100多分了，全部送出！[]

delphi世界qq群：23981160，喜欢Delphi的都进来

?一个form,左边是个treeview,里面有N项,每项都对应一个jpg文件?右边是个image,点击treeview里的项,在右边的image里显示其对应的图片?

hs-kill
对的，，就是这样，，我是新手，请指教，谢谢。

没有人愿意要分吗，，哎，怎么都没有回音了哦！

..........说实话，我实在想不明白你的要求里有什么有难度的地方.......
是不是下面这样的？

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,jpeg, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
TreeView1: TTreeView;
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
SRec:TSearchRec;
path,tmps:string;
pstrchar;
begin
TreeView1.Items.BeginUpdate;
try
path:='d:/MyPictures/动漫图片/';
if FindFirst(path+'*.jpg',faAnyFile,SRec)=0 then repeat
If (srec.Attr and FILE_ATTRIBUTE_DIRECTORY)<>0 Then //文件
continue;
tmps:=path+srec.Name+#0;
getmem(pstr,length(tmps));
strpcopy(pstr,tmps);
TreeView1.Items.AddChildObject(nil,changefileext(srec.Name,''),pstr);
until FindNext( SRec )<>0;
FindClose(SRec);
finally
TreeView1.Items.EndUpdate;
end;
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
tmps:string;
begin
tmps:=pchar(node.Data);
if fileexists(tmps) then
image1.Picture.LoadFromFile(tmps);
end;

end.

呵呵，因为是新手，隔行如隔山啊，所以很多不懂
你的代码我回去对着书研究研究，接受答案了，希望对偶有帮助，谢谢！