Бегущая строка - Помощь студентам

vitamin.rulez · 28.01.2009, 20:36

Как сделать edit типо бегущей строки, чтобы по нажатию клавиши
edit уходил на 1-ин символ в лево

Манжосов Денис :) · 28.01.2009, 20:40

Ставишь компонент TTimer. Находиться он на вкладке System. Создаёшь по событию OnTimer следующий код:

Код:

Edit1.Left := Edit1.Left+1

Если нужно остановить, используй Timer1.Enabled := false;
Увеличить периодичность через Timer1.Interval := n;
//
Если хочешь по нажатию клавиши, то вот так ещё можно:

Код:

procedure TForm1.OnKeyDown(параметры);
begin
  Edit1.Left := Edit1.Left+1
end;

maladoy · 28.01.2009, 20:41

Код:

s:=copy(1,1,edit1.text);
s1:=edit1.text;
delete(s1,1,1);
edit1.text:= s1+s;

vitamin.rulez · 28.01.2009, 20:52

Цитата:

Edit1.Left := Edit1.Left+1

А как сделать чтобы В Лево сдвигался?

vitamin.rulez · 28.01.2009, 20:56

а всё понял)

vitamin.rulez · 28.01.2009, 21:03

а как так сделать чтобы текст двигался ровно по указателю как в этой программе
http://www.programmersforum.ru/showthread.php?t=24650

maladoy · 28.01.2009, 21:37

по какому указателю?????

Манжосов Денис :) · 28.01.2009, 21:42

Тут посложней всё будет, здесь Canvas а не Edi

vitamin.rulez · 28.01.2009, 21:48

да я понял что канва, мне надо хотябы чтобы буква находившиеся по середине формы была бы побольше размером

28.01.2009, 20:36	#1
vitamin.rulez Пользователь Регистрация: 19.09.2008 Сообщений: 45	Бегущая строка Как сделать edit типо бегущей строки, чтобы по нажатию клавиши edit уходил на 1-ин символ в лево

28.01.2009, 20:40	#2
Манжосов Денис :) Участник клуба Регистрация: 29.01.2008 Сообщений: 1,039	Ставишь компонент TTimer. Находиться он на вкладке System. Создаёшь по событию OnTimer следующий код: Код: `Edit1.Left := Edit1.Left+1` Если нужно остановить, используй Timer1.Enabled := false; Увеличить периодичность через Timer1.Interval := n; // Если хочешь по нажатию клавиши, то вот так ещё можно: Код: `procedure TForm1.OnKeyDown(параметры); begin Edit1.Left := Edit1.Left+1 end;`

28.01.2009, 20:41	#3
maladoy delphi-ст! Форумчанин Регистрация: 02.01.2009 Сообщений: 825	Код: `s:=copy(1,1,edit1.text); s1:=edit1.text; delete(s1,1,1); edit1.text:= s1+s;` вступлю в команду разработчиков ПО на Delphi Последний раз редактировалось maladoy; 28.01.2009 в 20:57.

28.01.2009, 21:37	#7
maladoy delphi-ст! Форумчанин Регистрация: 02.01.2009 Сообщений: 825	по какому указателю????? вступлю в команду разработчиков ПО на Delphi

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Бегущая строка в заголовке приложения (Delphi 7)	Sinx	Помощь студентам	2	08.12.2008 02:35
Строка состаяния или загрузачная строка	Sergeu	Мультимедиа в Delphi	8	27.08.2008 10:32
Бегущая строка и about	Патрон	Общие вопросы Delphi	12	02.06.2008 22:31
"Бегущая строка"	Канат	Общие вопросы Delphi	6	24.12.2006 10:13

28.01.2009, 20:56	#5
vitamin.rulez Пользователь Регистрация: 19.09.2008 Сообщений: 45	а всё понял)

28.01.2009, 21:03	#6
vitamin.rulez Пользователь Регистрация: 19.09.2008 Сообщений: 45	а как так сделать чтобы текст двигался ровно по указателю как в этой программе http://www.programmersforum.ru/showthread.php?t=24650

28.01.2009, 21:42	#8
Манжосов Денис :) Участник клуба Регистрация: 29.01.2008 Сообщений: 1,039	Тут посложней всё будет, здесь Canvas а не Edi

28.01.2009, 21:48	#9
vitamin.rulez Пользователь Регистрация: 19.09.2008 Сообщений: 45	да я понял что канва, мне надо хотябы чтобы буква находившиеся по середине формы была бы побольше размером