Lauftext mal ganz anderst

[Waldteufel]

Hi.

Zitat von 150gozilla:

Ich will nur das meine laufschrift vertikal läuft (von unten nach oben)
dafür brauch ich sichrlich keine weiteren kompnenten oder ?

Doch! Wie schon gesagt: Lad dir die JVCL runter, dann findest du in der Registerkarte "JvScrollers" die Komponente "TJvScrollText", die genau das macht, was du willst.

[150gozilla]

ja, aber das lässt sich bei mir nicht installieren ö.Ö.

ich habe jetzt den LMDScrollText aber der scrollt mir nur wenn ich ihn bearbeite sprich, wenn ich in delphi bin, dann rechtsklick auf den LMDScrollText dann scrollen, dann scrollt er ihn mit nur da aber nicht in der fertigen anwendung

[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

[150gozilla]

danke super hilfe, aber das mit der txt datei, könnte man die irgendwie mit in das Programm einbinden?, das man am ende nur eine datei die exe(das eigendliche programm) hat ?

\\edit: sonst kann ja jeder den lauftext ändern

[ManuMF]

Delphi-Quellcode:

// onFormCreate:
SL := TStringList.create;
SL.add('erste Zeile');
SL.add('zweite Zeile');
SL.add('...');

// Wenn man die Credits startet
Memo1.Lines.AddStrings(SL);

// Timer wie gehabt

// onFormDestroy
SL.free;

Wenn es nichts ausmacht, dass der Text von Anfang an im Memo steht, kannst du ihn auch gleich reinschreiben.

Gruß,
ManuMF

[150gozilla]

sl = undefinierter bereich


mhhhh.. bin noch anfänger

[Mr_G]

Hast du SL deklariert?

[Chegga]

Hi,

var SL: TStringList; Das bedeutet das SL vom Typ StringList ist-

MfG Marc

[150gozilla]

ach mist
hatte grade ein Brett vorm kopp
ich arbeite pro tag 14 stunden als software entwickler (fange grad ausbildung an) und es ist 34 °C heiß, da kann es ja mal apssieren das man nen blackout bekommt.

Danke Chegga

[ManuMF]

Mein Fehler, hab's vergessen

Gruß,
ManuMF