Senkrechte / Waagrechte Laufschrift

[City Light]

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.

Delphi-Quellcode:

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]

[City Light]

Wie erstelle ich eine Laufschrift

Delphi-Quellcode:

//Laufschrift von Rechts nach Links 

var 
  h : integer; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  with Label1 do 
  begin 
    Left := Left -1; 
if Left =(0 -Left){oder 0- Width} then 
    Left := h;
  end; 
end; 

procedure TForm1.FormResize(Sender: TObject); 
begin 
  h := Form1.ClientWidth -32; 
  Label1.Left := h; 
end;