Lauftext wie am Ende eines Films!

[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;