"Бегущая строка" - Общие вопросы Delphi

Канат · 23.12.2006, 17:26

Помогите пожалуйста создать программу "Бегущая строка", которя будет содержать надпись "С Новым годом!" и двигаться справа налево.

Сдать мне её нужно до 25.12.06

ПОЖАЛУЙСТА ПОМОГИТЕ!!!

Spector2030@yandex.ru

SuperVisor · 23.12.2006, 17:46

Создай форму, помести на нее TLabel и TTimer. Заполни Лэйбл текстом и сделай его положение относительно левой границы формы равной ее ширине. после запускай таймер с интервалом в 50мс, который из положения Left будет отнимать единицу, пока положение Left не будет равно (-ширина лэйбла). потом переставляем лэйбл в начальное положение.

PAVEL315 · 23.12.2006, 17:47

Создаешь Label1 & Timer1

Код:

Procedure Form1.Timer1Timer(Sender : TObject);
Var s : String;
begin
 s := Label1.Caption;
s := s + s[1];
Label1.Caption := copy(s, 2, length(s) - 1);
end;

Label1.caption изначально - "С новым годом"

VDLab · 23.12.2006, 19:02

компонент Rlabel

-=DeS=- · 23.12.2006, 22:20

вот +10 симвалАффффффффф

Alar · 23.12.2006, 23:29

http://www.programmersclub.ru/labgrafica

zetrix · 24.12.2006, 10:13

Ну и напоследок: Raize Components (14 Mb)

Там много всего интересного, бегущая строка тоже есть.

23.12.2006, 17:26	#1
Канат Регистрация: 23.12.2006 Сообщений: 6	"Бегущая строка" Помогите пожалуйста создать программу "Бегущая строка", которя будет содержать надпись "С Новым годом!" и двигаться справа налево. Сдать мне её нужно до 25.12.06 ПОЖАЛУЙСТА ПОМОГИТЕ!!! Spector2030@yandex.ru

23.12.2006, 17:46	#2
SuperVisor Павел Сергеевич Форумчанин Регистрация: 05.11.2006 Сообщений: 665	Создай форму, помести на нее TLabel и TTimer. Заполни Лэйбл текстом и сделай его положение относительно левой границы формы равной ее ширине. после запускай таймер с интервалом в 50мс, который из положения Left будет отнимать единицу, пока положение Left не будет равно (-ширина лэйбла). потом переставляем лэйбл в начальное положение. Познавая других, мы познаем себя. С'est la vie...

23.12.2006, 17:47	#3
PAVEL315 Форумчанин Подтвердите свой е-майл Регистрация: 18.11.2006 Сообщений: 172	Создаешь Label1 & Timer1 Код: `Procedure Form1.Timer1Timer(Sender : TObject); Var s : String; begin s := Label1.Caption; s := s + s[1]; Label1.Caption := copy(s, 2, length(s) - 1); end;` Label1.caption изначально - "С новым годом" дык! Последний раз редактировалось PAVEL315; 23.12.2006 в 17:48. Причина: Уточнение

23.12.2006, 23:29	#6
Alar Александр Администратор Регистрация: 28.10.2006 Сообщений: 17,501	http://www.programmersclub.ru/labgrafica Купить рекламу на форуме за 42 тыс руб за месяц размещения

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

24.12.2006, 10:13	#7
zetrix Delphi/C++/C# Участник клуба Регистрация: 29.10.2006 Сообщений: 1,972	Ну и напоследок: Raize Components (14 Mb) Там много всего интересного, бегущая строка тоже есть.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Дана строка, состоящая из нескольких слов. Найти количество слов, которые содержат хотя бы одну букву "А"	Mashaa	Помощь студентам	13	09.12.2009 13:28
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует	skobets	Общие вопросы C/C++	2	03.06.2008 06:51
Бегущая строка и about	Патрон	Общие вопросы Delphi	12	02.06.2008 22:31
Excel файл открывается не "до конца" (странички "не показываются" только серое поле)	Dorvir	Microsoft Office Excel	2	28.03.2008 10:03
PCHAR строка с разделителями #13#10. Как вычленить отдельные "подстроки"	EdNovice	Общие вопросы Delphi	1	17.04.2007 11:42