Ich hab noch eine bessere
Das ist halt von links nach rechts. Ich denk mal du bekommst das auch dan anders rum hin
Habs getestet Flackert net so und Sieht super aus xD
Brauchst nen Timer und ne PaintBox
Delphi-Quellcode:
var
Text1 : String;
StartPos, Width1 : Integer;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Text1 := 'Hallo Welt'; //Dein Text den du haben willst
Width1 := PaintBox1.Canvas.TextWidth(Text1); //Länge des Textes, damit mach herausfinden kann von wo man anfangen muss
StartPos := -Width1; //Anfangen mit dem Text hereinschieben
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
with PaintBox1 do
begin
Canvas.FillRect(ClientRect); //Alter Text löschen
If StartPos <> PaintBox1.Width then //Wenn die Breite der Pos des Textes nicht erreicht hat
Canvas.TextOut(StartPos,0,Text1) //Text ausgeben
else
StartPos := -Width1; //Wenn er das Ende erreicht hat wieder von vorne Anfangen
Inc(StartPos,1); //Pos erhöhen an der 1 kannst du auch ne andere Zahl machen, damits schneller geht oder so xD
end;
So einfach ist das
Viel Spass damit
Gruß NickelM