Вот чтото выйшло у меня =) Я сам начинающий, мне 14 и я недавно начал учить делфи.
Кидаеш таймер и Label1.
Потом для таймера прописываеш:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.left:=label1.Left+1;
if Label1.Left > Form1.width then Label1.Left := Label1.Left-(Form1.width+Label1.Width);
end;
Я сделал вроде вышло. Только таймеру поставь интервал 1 =) ну думаю дальше розберёшся =)
Вот тебе и наоборот как ты просил!
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.left:=label1.Left-1;
if Label1.Left = -Label1.Width then Label1.Left := Form1.width+Label1.Width;
end;