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