Hallo
Zitat:
procedure TForm2.ClickNext(Sender: TObject);
begin
Image1.Picture.LoadFromFile(ListBox1.Items.Strings[0]);
end;
Wenn du immer 0 drinnen stehen hast liest do auch immer nur den 1 Pfad aus.
Versuche es mal so:
Delphi-Quellcode:
Globale Variable
var
i:Integer;
procedure TForm2.ClickNext(Sender: TObject);
begin
i:=i+1;
if i > ListBox1.Items.Count then
i:= ListBox1.Items.Count-1;
Image1.Picture.LoadFromFile(ListBox1.Items.Strings[i]);
end;
mfg
Zelle