VPF::Бегущая строка в заголовке - Форум программистов

alexflat

Дата 15.12.2008, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.11.2008

Репутация: нет
Всего: нет

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

Christoph

Дата 15.12.2008, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 1
Всего: 11

Из дркб, а если нету то вот код 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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 24.11.2008

Репутация: нет
Всего: нет

Пасиб

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »