Lauftext a la winamp, sprich ohne verschieben des labels
Delphi-Quellcode:
procedure Tform1.Timer1(Sender: TObject);
var
hilf, hilfbuchstabe: string;
begin
hilf := lblauftext.Caption; //einlesen der gesamten caption
hilfbuchstabe := hilf[1]; //merken des ersten zeichens der caption
delete(hilf, 1, 1); //erstes zeichen löschen
hilf := hilf + hilfbuchstabe;//caption + gemerktes zeichen
lblauftext.Caption := hilf; //das ganze ausgeben
application.ProcessMessages; //um sicher zu gehen, dass das ganze angezeigt wird
//timer intervall auf ca. 200ms stellen
end;
viel spass damit