Lauftext

[Michi003]

Hallo,

wie kann ich einen Lauftext Programmieren?
Und zwar ganz Simpel und leicht... Ohne groß etwas Programmieren zu müssen einfach ein Text Feld mit dem Text meiner wahl und dieser soll dann in einer endlos schleife durchlaufen...
Vllt. noch mit Hintergrund Musik...

[Luckie]

Die Suche hilft: Lauftext.

[Michi003]

Durch die Suchergebnise habe ich mich durch gekämpft aber nichts passendes gefunden =(

[Luckie]

http://www.delphipraxis.net/internal...light=lauftext Der Thread heißt sogar Laufschrift. :evil:

[Michi003]

Ich weiß auch nicht ich bekomms einfach nicht hin... =(

[BullsEye]

http://garrel.ga.funpic.de/Anderes/H...waagerecht.php

http://garrel.ga.funpic.de/Anderes/H...des/winamp.php


Du musst die Procedure auch auf eine Timer nicht auf das Label setzten ;)

[Michi003]

Gemacht, geht aber immer noch nicht

[BullsEye]

Zitat:

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!

[BullsEye]

Zitat:

Zitat von Michi003

Gemacht, geht aber immer noch nicht

Zieh nen Timer auf dein Forumular, ein Doppelklick darauf und füge folgende Zeilen ein:

Delphi-Quellcode:

var
  sLauftext, sTmp: string;

[..]

sLauftext := Label1.Caption;
sTmp := sLauftext[1];
delete(sLauftext, 1, 1);
sLauftext := sLauftext + sTmp;
Label1.Caption := sLauftext;
Application.ProcessMessages;

[Michi003]

Muss dich endteuschen geht nicht...