Problem mit Bilder laden

[DeddyH]

[OT] Aber da steh ich zu [/OT]

[SaFu]

Ich habe mach das immer Mit einer FileListBox

Delphi-Quellcode:

procedure TForm4.Timer2Timer(Sender: TObject);
begin
  if FileListBox1.Items.Count > 0 then
   begin
     if index > FileListBox1.Items.Count -1 then
      index:= 0; //index auf "O" setzen
        FileListbox1.Selected[index]:= true; //Aktuellen index makieren
          bild:= Lowercase(ExtractFileExt(FileListBox1.FileName));

      if (bild = '.jpg') then //Pfad + .jpg
        begin
         ImageBilderanzeige.Picture.LoadFromFile(FileListBox1.FileName);
        end;

       if (bild = '.bmp') then
        begin
         ImageBilderanzeige.Picture.LoadFromFile(FileListBox1.FileName);
        end;

       if (bild = '.gif') then
        begin
         ImageBilderanzeige.Picture.LoadFromFile(FileListBox1.FileName);
        end;

     inc(index); //Index +1
    LabAnzahlBilder.Caption:= 'Bild '+ IntToStr(index)+' von '+ IntToStr(FileListBox1.Items.Count);
   end

   else
    begin
     if Form1.MessageDlgPos2('Es sind keine Bilder vorhanden ',mtInformation,[mbok],self) = mrok then
     Timer2.Enabled:= False;
    end;
 end;

Aber vielleicht gibt es ja bei meinem Code Verbesserungen??

Gruß Sascha

[DeddyH]

Dialoge in einem Timer-Event finde ich irgendwie suboptimal.