...
implementation
uses contnrs, jpeg;
var
ObjList: TObjectList;
procedure TForm1.FormCreate(Sender: TObject);
begin
DirectoryListBox1.Directory:= '';
ObjList:= TObjectList.Create;
end;
procedure TForm1.BuscarImagenes(const Ruta: string);
var
SR: TSearchRec;
Img: TImage;
E: string;
n: Integer;
begin
if FindFirst(Ruta + '\*.*', faAnyFile, SR) = 0 then
begin
n:= 0;
repeat
E:= ExtractFileExt(SR.Name);
if (E='.jpg')or(E='.jpeg')or(E='.bmp')or(E='.emf')or(E='.wmf') then
begin
Img:= TImage.Create(Self);
ObjList.Add(Img);
with TImage(ObjList.Items[n]) do
begin
Height:= 80;
Width:= 80;
Left:= 10;
Top := 120 * n + 10;
Stretch:= True;
Picture.LoadFromFile(Ruta+'\'+SR.Name);
Parent:= ScrollBox1;
Inc(n);
end;
end
until FindNext(SR) <> 0;
FindClose(SR)
end
end;
procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
ObjList.Clear;
BuscarImagenes(DirectoryListBox1.Directory);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if Assigned(ObjList) then
FreeAndNil(ObjList);
end;