строка

← →
Jeka (2003-01-05 12:15) [0]

Здраствуйте мастера! Дайте пожалуйста любой пример бегущей строки
а то я сам пытался делать нече невыходит.
Зарание благодарен!

← →
DJ_Sedoy (2003-01-05 12:19) [1]

Ну если в Caption или Label - то легко.

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

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

← →
Дмитрий К.К. (2003-01-05 12:28) [2]

Без таймера не обойтись.

← →
Kair (2003-01-05 12:31) [3]

Бегущая строка - это которая внизу экрана справа на лево бежит?

← →
DJ_Sedoy (2003-01-05 12:31) [4]

Да, можно эту процедуру в onTimer.

← →
Jeka (2003-01-05 12:35) [5]

а в statusBar можно?

← →
DJ_Sedoy (2003-01-05 12:37) [6]

Тоже самое, где есть свойство типа Text (Caption).

← →
Jeka (2003-01-05 12:43) [7]

а еще есть примеры

← →
Дмитрий К.К. (2003-01-05 12:51) [8]

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

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

← →
Song (2003-01-05 12:52) [9]

А самому написать пример?

← →
Дмитрий К.К. (2003-01-05 13:02) [10]

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

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

← →
Jeka (2003-01-05 13:08) [11]

а где взять

← →
Jeka (2003-01-05 14:40) [12]

← →
Kair (2003-01-05 15:11) [13]

Я как-то так делал:

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 16:23) [14]

это лейбл двигается, а надо чтоб внутри него текст двигался

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

← →
Demiurg (2003-01-05 17:49) [15]

Почему именно таймер? Можно в отдельный поток это запихнуть...

← →
Дмитрий К.К. (2003-01-06 09:27) [16]

> Demiurg © (05.01.03 17:49)

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

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

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

строка Найти похожие ветки