Erklärung Durchlauf

[marabu]

Hallo Sascha,

es geht eigentlich nur darum den ItemIndex der FileListBox wieder auf 0 zu setzen, wenn der letzte Eintrag erreicht war. Vielleicht hilft dir eine andere Schreibweise:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    Timer: TTimer;
    FileListBox: TFileListBox;
    Image: TImage;
    procedure TimerTimer(Sender: TObject);
  private
    procedure ShowImage(fn: TFileName);
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.ShowImage(fn: TFileName);
begin
  Image.Picture.LoadFromFile(fn);
  OtherForm.Image.Picture.Assign(Image.Picture);
end;

procedure TDemoForm.TimerTimer(Sender: TObject);
begin
  with FileListBox do
  begin
    ItemIndex := Succ(ItemIndex) mod Items.Count;
    ShowImage(Items[ItemIndex]);
  end;
end;

Freundliche Grüße