Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Бегущая строка в заголовке

Автор: alexflat 15.12.2008, 18:37

Помогите пожалуйте: нужно, чтобы в заголовке программы (где по умолчанию пишется Form1 и т.п.) была бегущая строка. Строка не должна уходить за пределы заголовка, а должна отскакивать от правого/левого края заголовка.

Автор: Christoph 15.12.2008, 22:37

Из дркб, а если нету то вот код smile

Код


procedure TForm1.Timer1Timer(Sender: TObject);

const

LengthGoString = 10;

Gostring = 'Этот код был взят с проекта Delphi World'+

' Выпуск 2002 - 2003! Этот код б';

// Повторить столько символов - сколько в LengthGoString

const

i: Integer = 1;

begin

Label1.Caption := Copy(GoString, i, LengthGoString);

Inc(i);

if Length(GoString) - LengthGostring < i then

   i:=1;

end;

Автор: alexflat 16.12.2008, 00:40

Пасиб