Lauftext mal ganz anderst

[Chegga]

Hi,

das Ganze lässt sich ganz einfach
(auch ohne Zusatzkomponenten) bewerkstelligen.
Was du brauchst sind lediglich ein Memo und ein Timer.

In das Form.OnCreate kommt das:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('Laufschrift.txt'); // Dabei ist der Name
  // der Textdatei und zu beachten und
  // das diese im gleichen Verzeichnis wie das Programm liegt
end;

In den Timer1.OnTimer kommt das hier:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Add(Memo1.Lines[0]); 
  Memo1.Lines.Delete(0);
end;

Dann noch ein kleiner Tip am Rande:
Du kannst beim Timer das Intervall auswählen,
was ermöglicht, wie schnell die Laufschrift sein soll.
Die Angaben sind in Millisekunden, d.h.
1000 Millisekunden sind eine Sekunde.

Ich hoffe ich konnte ein wenig helfen.

MfG Marc