Laufschrift hängt

[SaFu]

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

[Cyberbob]

Verhindern kannst du das, in dem du Threads verwendest.
Wenn der rechner mit dem abarbeiten einer aufgabe beschäftigt ist müssen alle anderen aufgaben im selben thread warten.

[SaFu]

Funktioniert das auch mit dem Timer habe mal gehört das der Timer nicht Thread fähig ist kenn mich nicht so aus

[Cyberbob]

Lass den Timer weg. Erstell im Thread nen Delay: siehe Codelib

[SaFu]

Ooops

Den Thread bekomm ich bestimmt hin aber was ist das wie arbeitet das ding den

[Cyberbob]

Wer? Der Thread?
Schau dir mal das Tutorial von Luckie an: http://www.michael-puff.de/Developer...mit_Delphi.zip

[SaFu]

Naja aber meine frage ist immer noch nicht beantwortet ghet das mit dem teimer oder nicht

Kann ich es so machen das ich meinen obigen code in eine Funktion setze diese in einen Thread reinpacke und das ganze in einem timer laufen lasse oder wie könnte ich mir das vorstellen

[Reinhardtinho]

Mein Vorschlag ohne Thread. Hast du dies schon versucht?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.DoubleBuffered := True;
end;

Bei mir hing auch schon mal eine Laufschrift, hiermit wurde der Fehler behoben.

MFG
Lorenz

[SaFu]

Ja hab ich auch schon wie gesagt benutze jetzt die komponente vom jens ist sehr gut hat auch viele möglichkeiten

Ich denke es liegt halt am Laden der Bilder das die Laufschrift immer für den moment des lade vorgangs hängen bleibt.

Ich weis jetzt halt nur nicht wegen den Timer ob ich es in einen Thread reinsetzen kann oder nicht

[OregonGhost]

Musst du die Bilder denn unbedingt während der Animation laden? Kannst du sie nicht im Voraus laden?