[DKV]

Умы расскажите, как сделать, так чтобы текст(Label) двигался с лево на право а затем обратно? Спасибо. --- ~ ----

[hkdkest]

Прокрутка текста заголовка

Код:

   var
  a: string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := 'Look at here !...';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  Application.Title := a;
  Form1.Caption     := a;
  for i := 1 to (Length(a) - 1) do
    a[i] := Application.Title[i + 1];
  a[Length(a)] := Application.Title[1];
end;

для лейбла сам сообразишь)