Visualizar las imagenes que tengo en una carpeta

[ecfisa]

Hola.

Te hago un ejemplo sencillo con tres elementos.

. TDirectoryListBox. (Paleta Win 31)
. TFileListBox. (Paleta Win 31)
. TImage.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl, ExtCtrls, DBCtrls, DB, DBClient;

type
  TForm1 = class(TForm)
    Image1: TImage;
    DirectoryListBox: TDirectoryListBox;
    FileListBox: TFileListBox;
    procedure FormCreate(Sender: TObject);
    procedure DirectoryListBoxChange(Sender: TObject);
    procedure FileListBoxDblClick(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

uses Jpeg;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DirectoryListBox.Directory:= 'C:\';
  FileListBox.Mask:= '*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf';
  Image1.Stretch:= True;
end;

procedure TForm1.DirectoryListBoxChange(Sender: TObject);
begin
  FileListBox.Directory:= DirectoryListBox.Directory;
end;

procedure TForm1.FileListBoxDblClick(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(FileListBox.FileName);
end;
end.

El código muestra las imágenes en el TImage, cuando hacés doble click sobre los nombres de archivos en el TFileListBox. En cuanto al navegador, no te será dificil adaptarlo reformando la estructura del programa.


Saludos.