Делаю бегущую строку из компонента TLable вот код:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Left:=Label1.Left-1;
if Label1.Left+Label1.Width < 0 then
Label1.Left:=Self.Width;
end;
Админ: Пользуемся тегами для оформления кода!
Но когда она "бежит" то мигает, а мигает она из за того что я двигаю не текст а компонент, но как сделать сделат ь что бы двигался не компонент а сам текст!