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.