Laufschrift

[newuser01]

Hallo

Delphi-Quellcode:

//vielleicht so
procedure TForm1.Timer1Timer(Sender: TObject);
begin

if Label41.left > (Label1.width)* -1 then
   begin
   Label1.left := Label1.left - 1
   end
     else
         begin
         Label1.left := Form1.Width;
   end;

end;

Delphi-Quellcode:

//oder so
procedure TForm1.Timer1Timer(Sender: TObject);
var
  sLauftext, sTmp: string;
begin


try

sLauftext := Label1.Caption;
sTmp := sLauftext[1];
delete(sLauftext, 1, 1);
sLauftext := sLauftext + sTmp;
Label1.Caption := sLauftext;
Application.ProcessMessages;

  except
end;

end;