[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;

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

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

[M.A.D.M.A.N.]

На хворуме была такая тема, там именно текст револьвился.

[Eridanus]

Сообщение от M.A.D.M.A.N.

На хворуме была такая тема, там именно текст револьвился.

а ссылку можно?

[v1s2222]

Сообщение от Eridanus

а ссылку можно?

Поиск тебя спасет.
А вообще можно попробовать (FormCreate):

Код:

  DoubleBuffered := True;

[AlexSku]

Сообщение от Eridanus

я двигаю не текст а компонент

Двигать текст значит выводить фрагмент строки (Copy); в событии таймера с одного конца строки убирать один символ, а к другому концу прибавлять новый.