Alles was wir dazu brauchen ist ein Label und ein Timer ,platziert beides auf eure 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;
Kleiner tipp: Sollte eure Laufschrift flackern setzt einfach im FormCreate eura Form DoubleBuffered auf True.
Form1.DoubleBuffered := True;
[edit=Daniel B]Titel geändert, aufgrund des zweiten Beitrages! MfG Daniel B.[/edit]
[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]