Lauftext a la winamp

[pirechner]

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