бегущий текст

[Викторияяя]

Подскажите как написать код программы для бегущего текста. Сверху вниз. Используется в разделе "О программе"

[Smogg]

Например, можно самостоятельно отрисовывать графику на поверхности окна "О программе".

[Streletz]

Сообщение от Викторияяя

Подскажите как написать код программы для бегущего текста. Сверху вниз. Используется в разделе "О программе"

Можно ещё использовать анимацию, например gif или flash.
P.S. Язык программирования и компилятор?

[Викторияяя]

а если есть готовый вордовский документ как сделать его бегущим?

[Streletz]

Сообщение от Викторияяя

а если есть готовый вордовский документ как сделать его бегущим?

Выражайте свои мысли яснее, что значит "бегущий вордовский документ"? Разъясните нормально постановку задачи.
И, ещё раз, в каком компиляторе и на каком языке программирования это всё нужно сделать? В разных языках и средах варианты решения одной и тоже задачи могут очень сильно отличаться.
Кроме того, согласно правилам раздела в названии темы обязательно должно содержаться название языка программирования. Хотя бы в самый первый пост его поместили бы.

[Викторияяя]

Извините, я только начинающий программист)))). Программа пишется в Delphi, язык тоже Delphi. При нажатии на кнопку "О программе" открывается новая форма в которой должен находится текст о программе, который движется снизу вверх. Как это сделать?

[Vanta11a]

Гуглите вопросы "Delphi показать форму", "Таймер", "TMemo свойства" и т.п.

По сути Вам нужно сделать вторую форму, в которой находится компонент TMemo. По первой сработке таймера компонент очищается, в него выводится N пустых строк и затем - ваши строки. По второй сработке - очищается, выводится N-1 пустых строк, потом - ваши строки. И т.д.

[Аватар]

Можно просто первую строчку в конец перетягивать. Не совсем бегущий конечно, дергается, но для начинающего и это с избытком

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 10 do Memo1.Lines.Add('');
  for i:=1 to 10 do Memo1.Lines.Add(Format('Строка %d',[i]));
  Timer1.Interval:=1000;
  Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.Add(Memo1.Lines.Strings[0]);
  Memo1.Lines.Delete(0);
end;