Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 4 265

Раздел: Delphi » Прочее
/ вопрос решён /

Здравствуйте, уважаемые эксперты!
Подскажите пожалуйста, как создать бегущую строку на форме?
В Label или в StaticText?
Можт быть где-то пример можно посмотреть?
Спасибо!

Цыцарев Вадим Николаевич Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: Цыцарев Вадим Николаевич (статус: Посетитель)
Вопрос отправлен: 2 июня 2010, 00:49
Состояние вопроса: решён, ответов: 2.

Ответ #1. Отвечает эксперт: Hi-tek

Здравствуйте, Цыцарев Вадим Николаевич!
Кидаешь на форму Label и Timer.
Интервал Таймера ставишь, к примеру, 10.
В таймере пишешь (в приложении).
Чтобы текст не моргал, можно поставить значения AlphaBlend и DoubleBuffer в True.

Приложение:
  1. Label1.Left:=Label1.Left-1;
  2. if Label1.Left<0-Label1.Width then Label1.Left:=Form3.Width;


Ответ отправил: Hi-tek (статус: 1-ый класс)
Время отправки: 2 июня 2010, 05:34
Оценка за ответ: 4

Ответ #2. Отвечает эксперт: Вадим К

Здравствуйте, Цыцарев Вадим Николаевич!
Бегущая строка организовывается так (например).
На форму ставим таймер, подбираем интервал, меньше 50 ставить нет смысла. В код пишем такое

var
s:string;
begin
  s := Label1.caption;
  s := copy(s, 2, maxint) + s[1];
  Label1.caption := s;
end;
В сам Label просто вводим нужную строку. Для достижения более качественного вывода можно добавить немного пробелов в конец строки и отключив свойство AutoSize поиграться правильными размерами.

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 2 июня 2010, 10:30
Оценка за ответ: 4


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 7 июня 2010, 12:23; участников в обсуждении: 3.
Hi-tek

Hi-tek (статус: 1-ый класс), 2 июня 2010, 05:36 [#1]:

Поправлю: значения формы AlphaBlend и DoubleBuffer, где лежат компоненты.
Geny

Geny (статус: Посетитель), 2 июня 2010, 13:50 [#2]:

Также можно установить дополнительный компонент, с помощь которого можно отображать бегущие строки! Так проще!!!
Цыцарев Вадим Николаевич

Цыцарев Вадим Николаевич (статус: Посетитель), 3 июня 2010, 23:47 [#3]:

Цыцарев Вадим Николаевич: Вопрос к Geny - Какие дополнительные компоненты, с помощью которых можно отображать бегущие строки?
Geny

Geny (статус: Посетитель), 7 июня 2010, 12:23 [#4]:

Компонент называется Running label - Бегущая строка. Просто устанавливаете его в среду Delphi и пользуйтесь на здоровье!
Сайт где можно скачать данный компонент:

http://www.kvrsoft.com/index.php?option=com_jdownloads&Itemid=17&task=viewcategory&catid=33

Посмотреть как устанавливаются компоненты Вы можете посмотреть на этом же сайте перейдя по этой ссылке:

http://www.kvrsoft.com/index.php?option=com_content&view=category&layout=blog&id=21&Itemid=25

13 мая 2013, 14:10: Статус вопроса изменён на решённый (изменил модератор DNK): И не раз!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:53
Выполнено за 0.04 сек.