Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

строка [D6, Win2k]

Jeka © (2003-01-05 12:15:00)
Здраствуйте мастера! Дайте пожалуйста любой пример бегущей строки
а то я сам пытался делать нече невыходит.
Зарание благодарен!

Дмитрий К.К. (2003-01-06 09:27:00) [1]

> Demiurg © (05.01.03 17:49)

Челу, который спрашивает

> Jeka (05.01.03 12:35)
> а в statusBar можно?

рановато еще про потоки грить...

Demiurg (2003-01-05 17:49:00) [2]
Почему именно таймер? Можно в отдельный поток это запихнуть...

Jeka (2003-01-05 16:23:00) [3]
это лейбл двигается, а надо чтоб внутри него текст двигался

А вот еще вопрос как сделать титры как в кино?

Kair (2003-01-05 15:11:00) [4]
Я как-то так делал:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Left<-Label1.Width then Label1.Left:=Form1.Width
else Label1.Left:=Label1.Left-1;
end;

Jeka (2003-01-05 14:40:00) [5]

> DJ_Sedoy ©

я испрвил так для таймера
Label1.Caption:=copy(s, i, 10);
i:=i+1

Jeka (2003-01-05 13:08:00) [6]
а где взять

Дмитрий К.К. (2003-01-05 13:02:00) [7]

> Song © (05.01.03 12:52)
> А самому написать пример?

Лучше, чем у Конопки, не получится :D

Song (2003-01-05 12:52:00) [8]
А самому написать пример?

Дмитрий К.К. (2003-01-05 12:51:00) [9]

> Jeka (05.01.03 12:43)
> а еще есть примеры

Использовать компонент Рэя Конопки.

Jeka (2003-01-05 12:43:00) [10]
а еще есть примеры

DJ_Sedoy (2003-01-05 12:37:00) [11]
Тоже самое, где есть свойство типа Text (Caption).

Jeka (2003-01-05 12:35:00) [12]
а в statusBar можно?

Kair (2003-01-05 12:31:00) [13]
Бегущая строка - это которая внизу экрана справа на лево бежит?

DJ_Sedoy (2003-01-05 12:31:00) [14]
Да, можно эту процедуру в onTimer.

Дмитрий К.К. (2003-01-05 12:28:00) [15]
Без таймера не обойтись.

DJ_Sedoy (2003-01-05 12:19:00) [16]
Ну если в Caption или Label - то легко.

Const s = "Сама бегущая строка ";
Begin
for i:=1 to length(s) do
Label1.Caption:=copy(s, i, 10);
end;

По идее и с TEdit тоже самое.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »