[Eridanus]

Делаю бегущую строку из компонента TLable вот код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Left:=Label1.Left-1;
  if Label1.Left+Label1.Width < 0 then
    Label1.Left:=Self.Width;
end;

Админ: Пользуемся тегами для оформления кода!

Но когда она "бежит" то мигает, а мигает она из за того что я двигаю не текст а компонент, но как сделать сделат ь что бы двигался не компонент а сам текст!