Zitat von
Michi003:
Ja, danke aber das sagt mir jetzt leider nicht wo mein fehler ist...
Also:
Du hast folgenden Code:
Delphi-Quellcode:
procedure TForm1.Label1(Sender: TObject);
var
sLauftext, sTmp: string;
begin
try
sLauftext := Label1.Caption;
sTmp := sLauftext[1];
delete(sLauftext, 1, 1);
sLauftext := sLauftext + sTmp;
Label1.Caption := sLauftext;
Application.ProcessMessages;
except
end;
end;
Der Code ansich ist ja richtig. Du musst ihn aber nicht auf das Label sondern auf einen Timer zuweisen:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
sLauftext, sTmp: string;
begin
try
sLauftext := Label1.Caption;
sTmp := sLauftext[1];
delete(sLauftext, 1, 1);
sLauftext := sLauftext + sTmp;
Label1.Caption := sLauftext;
Application.ProcessMessages;
except
end;
end;
Den Timer stellst du dann noch auf 200ms dann hast du ne passende Geaschwindigkeit!