Lauftext

[BullsEye]

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!