Бегущая строка и about

[Патрон]

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

Предварительно в конце лэйбла добавить 3-4 пробела - кому как нравится, а затем процедура для таймера

label1.caption := copy(label1.caption, 2, length(label1.caption)-1) + copy(label1.caption, 1, 1);

спасибо большое! а этот код можно и на вертикальную прокрутку поставить?)

[eoln]

Бес скролбара для memo

procedure TForm1.Timer1Timer(Sender: TObject);
var s: string;
begin
  s := memo1.Lines.Strings[0];
  memo1.Lines.Delete(0);
  memo1.Lines.Add(s);
end;

[Gorychev]

Мой вариантик...

procedure TForm1.Button1Click(Sender: TObject);
var s: string; i: integer;
begin
  s:=' Этот текст выведется по средине формы ';
  Label1.Caption:='';
  for i:=1 to length(s) do
  begin
   Application.ProcessMessages;
   Label1.Caption:= Label1.Caption + s[i];
   Label1.Left:= Form1.Width div 2 - Label1.Width div 2;
   sleep(100);
  end;
end;