label reinrollen lassen

[Chegga]

Hi,

so etwa?

Code:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var txt : String;
begin
  txt := Label1.Caption;
  txt := txt + txt[1];       //Erstes Zeichen hinten anhängen
  delete(txt,1,1);           //Vorne dafür löschen  
  Label1.Caption := txt;
end;

MfG Marc