Lauftext wie am Ende eines Films!

[fedderle]

Hi!

Ich möchte einen Lauftext wie am Ende von Filmen ablaufen lassen.
Womit kann ich das möglichst einfach und schnell machen.

Ich weiß es ginge auch mit Hilfe von Labels und einem Timer. Aber geht das nicht irgendwie auch leichter?
Außerdem würde ich gerne den Text, der ablaufen soll, in einer gesonderten Datei speichern (*.txt oder so was).
Wie kann ich von so einer Datei einzelne Textzeilen einlesen?

Steffen

[nailor]

Bei einer Textdatei kannst du mit "readln" eine Zeile einlesen...

[R.Meyrat]

Hallo

auf die schnelle, würde ich dies mit einem memo und einem Timer machen
und die Höhe des Memos auf die gewünschte Anzahl sichtbaren
Zeilen setzen.

im Form.Create

Delphi-Quellcode:

 memo1.Lines.LoadFromFile('Deine TextDatei.XYZ');

im Timer1.OnTimer

Delphi-Quellcode:

  memo1.Lines.Add(memo1.Lines[1]);
  memo1.Lines.Delete(0);

Gruss Roger

[nailor]

Guck mal da:

http://www.delphipraxis.net/viewtopic.php?t=2322

[City Light]

Hier hab ich mal was programiert.

du brauchst ein Label und ein Timer ,platziert beides auf deine Form.

Delphi-Quellcode:

var 
  s : Integer = 1;
  h : integer;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Label1 do 
  begin
  Top := Top - s;
  if Top = (0 - Height) then
  Top := h;
  end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  h := Form1.ClientHeight -  20;
  Label1.Top := h;
end;