Moin zusammen,
ich möchte in einem Label einen Scrolltext durchlaufen lassen. Kann mir da jemand helfen - ist ein TLabel überhaupt der richtige Ansatz oder gibt es da andere Komponenten?

Für Antworten bedanke ich mich im Voraus,
D.Elphi


Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Sa 26.11.2011 um 06:15

Ich würde eine TPaintBox nehmen und es selbst zeichnen (oder auch in einer eigenen Komponente). Denn sonst ruckelt es nur unnötig, da du in einem Label ja nicht pixelweise sondern zeichenweise scrollen würdest.

Danke schonmal für diesen Ansatz - kannst Du das evtl. näher (vielleicht mit Quelltext) erläutern? Dankeschön
PS: Angenommen, das Ruckeln stört mich nicht...wie sähe denn die Label-Lösung aus?

D.Elphi hat folgendes geschrieben :

PS: Angenommen, das Ruckeln stört mich nicht...wie sähe denn die Label-Lösung aus?

Als Einsteigerfreundliche Lösung könnte man den Text einfach ins Label schreiben und das Label selbst verschieben.
Setz einen Timer aufs Formular und setz bei jedem Tick das meinlabel.left := meinlabel.left + 10;
Das ist die allereinfachste Lösung, die aber Probleme mit sich bringt. Du wirst z.B. feststellen, dass das Label nicht mehr sauber läuft, wenn Dein PC noch mit anderen Aufgaben beschäftigt ist. Aber das ist Teil des Lernprozesses
Fang also ruhig so an, wie ich oben beschrieben hab. Und dann verbessere das Programm.

Hallo Nersgatt,
danke für deine Lösung. Das funktioniert alles wunderbar, nur habe ich nun das Problem, dass das Label nicht mehr "zurückkommt". Wie kann ich das machen, dass es wiederholt angezeigt wird?

mfg
D.Elphi

Für den Anfang könntest du es wieder nach links setzen, wenn es zu weit rechts angekommen ist.

Meint ihr das in etwa so?

Delphi-Quelltext    ausgeblendet	markieren
1: if Label1.Left := xy then Label1.Left := yx;

Wenn du jetzt noch den Vergleichsoperator statt dem Zuweisungsoperator im if benutzt, ja...

also "=" anstatt ":="?

Übrigens, eine Frage habe ich noch:
Angenommen, ich möchte das Ganze ein wenig erweitern und zufällige "Nachrichten" aus einer Textdatei (nennen wir sie mal blabla.txt) anzeigen lassen. Wie bringe ich das Label dazu, diese anzuzeigen? Ich weiß, dass es dafür TStringList gibt, aber wie das geht, weiß ich nicht.

Naja, du lädst die Datei in eine TStringList und suchst dir dann mit Random eine der Zeilen aus. Die kannst du dann direkt in das Label packen, wenn du das ohnehin als einfache Notlösung komplett bewegst.

Nein, meine Frage war, wie ich etwas in eine StringList einlese . Trotzdem schonmal danke im Voraus für deine Erklärung.

Die StringList müsste die Methoden loadFromFile und saveToFile haben.