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?"