Laufschrift

[ByStones2]

Zitat von 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;

Ich hab beides probiert, geht nicht...
aber wahrscheinlich weil ich zu blöd bin ...
das ist der Text von Methode zwei, wie er bei mir steht:

Delphi-Quellcode:

procedure TForm2.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;

Könnte es daran liegen, dass das Fenster mit dem Lauftext ein SplashScreen ist ???