Перемещение по файлам в папке (как по DBGrid по записям)

[artemavd]

Добрый день! Сабж в названии темы. Возникла идея сделать возможность перемещение по файлам в папке через нажатие кнопки например. То есть как например идет перемещение по DBGrid через DBNavigator. Можно ли такое сделать? Если да, то как? С чего начать и по какому принципу?

[Stilet]

А отображение файлов твое, или имеется ввиду: Открыл пипл проводник, жмакнул по некой кнопке и понеслась в проводнике нелегкая.
Или имено в твоем приложении?

[artemavd]

В моем приложении . Чтобы я нажимал на кнопку и шел от одного к другому файлу вперед. Или назад, если нажал другую кнопку.

[Stilet]

Запросто. Главное знать методы компонента, которого используешь, для навигации по нему.

[artemavd]

Обычный TButton

[DESS]

а ткой пример не в тему будет ?

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if openpicturedialog1.execute then image1.Picture.loadfromfile(openpicturedialog1.FileName);


end;

procedure TForm1.Image1Click(Sender: TObject);
begin
filelistbox1.Directory:=extractfilepath(openpicturedialog1.filename);
image1.Picture.LoadFromFile(filelistbox1.directory+'\'+ filelistbox1.items[i]);
i:=i+1;
if i>(filelistbox1.items.count-1) then i:=0 ;

end;

end.