Hallo,
stimmt das klappt damit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var I:Integer;
SearchRec: TSearchRec;
begin
i := FindFirst(extractfilepath(application.exename) + 'Zeichnungen\*.jpg', faAnyFile, SearchRec);
while i = 0 do
begin
ListBox1.Items.Add(SearchRec.Name);
i := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
Wie kann ich nun eins nach dem nächsten Bild anzeigen und wieder bei dem ersten anfangen wenn das Ende ereicht ist bzw. zurück navigieren?