Einzelnen Beitrag anzeigen

Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#1

Laufschrift hängt

  Alt 12. Sep 2007, 22:09
Hi

Hab mal ne Frage zu meiner laufschrift.

Und zwar lade ich auf einer Form Bilder nacheinander in ein Image und zwar so

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(Bilddat + FileListBox1.Items[index]));

      if (bild = '.jpg') then //Pfad + .jpg
        begin
          // Laden der Bilder
          Image1.Picture.LoadFromFile(Bilddat + FileListBox1.Items[index]);
          Form3.Image1.Picture:= Image1.Picture;// Kopieren der Bilder auf Form3
        end;

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

   else
    begin
     if MessageDlgPos('Es sind keine Bilder vorhanden '
     +'',mtInformation,[mbok],0,260,200) = mrok then
     Timer2.Enabled:= false;
    end;
 end;
dabei läuft unter dem Bild eine Laufschrift mit der Komponente vom Jens Schumann hier im Forum.

jetzt habe ich das Problem immer wenn ein neues Bild geladen wird bleibt die Laufschrift kurz stehen und läuft dann wieder weiter

wie kann ich das verhindern??

Danke schonmal

Gruss Sascha
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat