|
Вопрос # 685/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Как сделать "бегущую строку" наподобие Mail Ticker в The Bat? Чтобы текст также двигался.
 |
Вопрос задал: Фамилия Имя Отчество (статус: Посетитель)
Вопрос отправлен: 30 июня 2007, 18:55
Состояние вопроса: открыт, ответов: 3.
|
Ответ #1. Отвечает эксперт: Градов Ю.М.
Здравствуйте, Emfs!
Привожу пример со своей программы "Боевой расчет", подпрограмма выводит бегущий текст на трей, но Вы поймете как сделать для формы:
Приложение: Переключить в обычный режим- var
- Form1: TForm1;
-
-
- ........
- procedure TForm1.Timer1Timer(Sender: TObject);
- var
- i: Integer;
- begin
- Application.Title := Cap;
- // Form1.Caption := Cap;
- for i := 1 to (Length(Cap) - 1) do
- Cap[i] := Application.Title[i + 1];
- Cap[Length(Cap)] := Application.Title[1];
- end;
-
 |
Ответ отправил: Градов Ю.М. (статус: 8-ой класс)
Время отправки: 30 июня 2007, 20:09
|
Ответ #2. Отвечает эксперт: Dron
Здравствуйте, Emfs!
Рекомендую подписаться на рассылку сайта. Совсем недавно была опубликована статья о том, как сделать бегущую строку. Сама статья находится здесь: Бегущая строка
Удачи!
 |
Ответ отправил: Dron (статус: Студент)
Время отправки: 30 июня 2007, 20:58
|
Ответ #3. Отвечает эксперт: min@y™
А можно заглянуть в исходники компонента TSecretPanel из пакета RxLib.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 2 июля 2007, 08:23
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
| 
