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.
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

zusammenfalten · markieren

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;

Senkrechte / Waagrechte Laufschrift

Senkrechte / Waagrechte Laufschrift

Forumregeln